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Que D-us lhe dê uma vida longa repleta de satisfações. 


David Zumerkorn 


Esta obra é dedicada à minha esposa Damaris, e aos meus filhos 
Thiago e Adalto pelo tempo que não pude dedicar-lhes. 
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SENHOR PROFESSOR: 


Assistindo uma entrevista na TV educativa de S.Paulo ouvi, estarrecido, a ex- 
plicação do diretor de um colégio que já adotou computadores em larga escala: 

“Se o professor diz — imagine um carro se movendo — você é obrigado a ima- 
ginar. Se o professor tem um computador na sala, pode colocar este carro na tela e 
você vê O carro se movendo sem precisar imaginar nada”. 

Meu D-us! Se esta fosse uma das finalidades do computador (eliminar o poder 
de imaginação da criança e do jovem) então ele deveria ser banido de todas as salas 
de aula do país! 

Na realidade o microcomputador, em mãos competentes, mais preocupadas 
com a didáticas e menos com o “marketing”, pode ser um instrumento de ensino mara-. 
vilhoso, enriquecendo a estrutura intelectual dos alunos e não tolhendo-os ou imbe- 
cilizando-os. 

Para isso, porém, é indispensável que haja um diálogo entre o aluno e a máqui- 
na, para que ele não se torne vítima de um “software” nem sempre elaborado com 
critérios realmente pedagógicos. 

Para que exista este diálogo, no qual o próprio aluno digita e CRIA curtos 
programas para receber a resposta imediata do computador, é necessário que ele es- 
teja alfabetizado em alguma linguagem. 

Apesar de todas as considerações pedagógicas que favorecem a linguagem LOGO, 
o BASIC está se tornando a “segunda língua” de muitos jovens brasileiros, princi- 
palmente por ser a linguagem da maioria dos microcomputadores pessoais, inclusive 
do TK 85, equipamento utilizado neste livro. 

A alfabetização do jovem no BASIC se torna então indispensável para que 
tanto ele quanto SEUS PROFESSORES possam criar livremente durante O aprendi- 
zado de outras matérias, em Ciências, Geografia, História, Matemática, Geometria, 
Língua Portuguesa, etc. 

Este livro deve ser utilizado pelo aluno em frente a um TK 85 ligado (com 
pequenas restrições pode-se usar o TK 82/83 ou CP 209). Até 2 alunos podem utili- 
zar um único micro sem inconvenientes. Se forem colocados 3 alunos por máguina 
é indispensável uma supervisão bem atuante de maneira a não deixar nenhum deles 
marginalizado no processo de interação com o micro. : 
, Se houver necessidade de maiores esclarecimentos e apoio, pedimos ao mes- 
tre para que entre em contacto com nossa editora para receber, inclusive, informa- 
ções sobre o livro do mestre. 

Mãos à obra, então, sem preconceitos contra O microcomputador, mas também 
sem entusiasmos fúteis ditados principalmente pelos modismos e pelas premências 
mercadológicas! ' 


Prot. PIERLUIGI PIAZZI 
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DAVID ZUMERKORN, 23, Engenheiro Industrial Mecânico, aluno. do curso 

de Pós-Graduação da POLI-USP, e OSMIR FOLTRAN, 42, Engenheiro Civil. 
"Ambos formados em Piracicaba S.P. se conheceram quando David foi convi- 

dado a estagiar numa empresa de renome em Piracicaba. Na época Osmir era respon- 
sável pelo departamento de Cálculo Estrutural onde utilizava computadores. 

David que fora Monitor de Cálculo Diferencial e Integral na universidade du- 
rante dois anos, também possuía grandes conhecimentos na área de informática. 

Resolveram juntos criar uma escola de computação especializada em crianças, 
a MICROBOYS, donde com base num longo contato com as crianças escreveram 'o 
A Informática na Escola, base do ensino de computação na referida escola. 

Lidar com crianças foi uma experiência gratificante para ambos, e mais gra- 
tificante ainda foi produzir um material didático que tanta aceitação teve entre os 
pequenos alunos. ' 
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INTRODUÇÃO 


O homem através dos tempos, teve que desenvolver uma série de 
instrumentos que nada mais são que extensões de nossos sentidos e mús- 
culos. 

Caso nós não tivéssemos inventado os instrumentos, não estaria- 
mos no grau de desenvolvimento tecnológico ao qual atingimos hoje. 

Dessa forma o homem foi obrigado a inventar um ifstrumento 
que fizesse cálculos com extrema eficiência e rapidez. 

Daí surgiu o computador, o cérebro eletrônico. 

Um número razoável dessas pessoas, inclusive crianças e jovens, 
têm conhecimento do computador através dos meios de comunicação 
e ficção científica, que parecem ser máquinas fantásticas, capazes de rea- 
lizar feitos extraordinários, que podem pensar por si próprias, mas que 
na realidade, só e sempre serão meros escravos na mão daquele que é a 
mais desenvolvida máquina do universo, pois ele tem a alma, o dom di- 
vino da criação: o “Homem”. 

Vamos a uma pergunta, que a maioria das pessoas iniciantes em 
computação fazem: 


— O computador faz tudo? 


K Se pensarmos que um simples movimento de nosso dedo indicati- 
vo, resulta numa complexa equação matemática para que possamos re- 
presentá-lo, imagine então os movimentos que fazemos durante apenas 
uma hora de nossa vida! . 

Enquanto que nosso cérebro controla nossos músculos com a maior 
facilidade, para que possamos nos movimentar, o melhor computador 


“do mundo não o faria com tal perfeição. 


Os computadores não possuem sentimento, não são inteligentes 
e obedecem completamente a vontade de seu programador. 

Caso não haja um programa, o computador não realiza nada. 

Agora vem o mais interessante. 


— O computador é importante para mim? f 
Pense bem, como seria possível, por exemplo, dar o resultado dos 


ganhadores da loto ou loteria esportiva, depois de algumas horas após o 
sorteio se não tivéssemos o computador para nos auxiliar. 























Es 


Caso essa não existisse seria necessário uma quantidade tão grande 


de pessoas, que encheria o Maracanã, e além disso essas pessoas comete- 


riam erros. 

Em uma grande quantidade de profissões o computador é uma 
ferramenta indispensável como por exemplo: 

O engenheiro que não souber computação dificilmente irá dimen- 
sionar máquinas ou edifícios com a rapidez e segurança de cálculo, como 
um que saiba. 

Na medicina e outras profissões da área de saúde, o médico, a en- 
fermeira ou o dentista, tem que cada vez mais, se adaptar ao computador 


-a fim de que possam ter armazenados históricos de seus pacientes, ou até 


mesmo realizar um pré-diagnóstico a respeito dos mesmos. 
E em áreas até como artes plásticas, cinema e atletismo, o compu- 


tador está presente. 
Nós acreditamos que as pessoas que não souberem programar, ou 


seja, dar uma seguência de ordens ao computador, dentro de dois ou 
três anos, vão se sentir inferiorizadas no dia-a-dia, tanto no trabalho quan- 
to no lazer. l 

E é em função disto que as crianças desde já, devem se sentir ami- 
gas dos computadores. Devem saber como manipular um computador 
de uma forma viével, o que fará com que atinjam um alto benefício para 
a sua formação. . 

E é por isso que escrevemos este livro, para que as crianças saibam 
utilizar o seu pequeno TK (CP200, AS1000, RINGO, ...), de uma forma 
gostosa e fácil de aprender. 

A teoria foi de tal forma detalhada que crianças que lêem e escre- 
vem gastarão pouco tempo de estudo para apreendê-la. 

Foi um trabalho árduo, que levou meses e meses até atingirmos 
o que você vai ver nas páginas seguintes. 


Bom divertimento ... 


David e Osmir 















MEU NOME E 
TERINHO! 






ESCREVA O SEU 
NOME PARA NOS «& 


-— e —— —— ue e — — um 


e — — — — — — e e — — us um 


o — — — — . — — "— — — — a 


—, — — — — — — — — == 





VAMOS AGORA 
APRENDER A MEXER 
NESTA MAQUINA! 













vorsonan cada co run aros 


QUANTOS BOTÕES! 





BR VAMOS APERTAR 
QUALQUER TECLA PARA 
VER O QUE ACONTECE? 






ad QUE TAL 

APERTARMOS TODAS AS 

TECLAS, UMA A UMA? 

VAMOS LA”, COMEÇANDO 
POR 3 






UE"? APERTANDO [ET] 
NÃO SAI NADA NA TELA E 


SC PISCA! 


























if SPAGE? 
ee Deva SER tg 
ESPAÇO! 
* VAMOS 

APERTAR! 











VAMOS ESCREVER UM 
MONTÃO DE COISAS: O 
NOME DA MAMÃE, DO, 
PAPAI, DA VOVO, DO VOVÔ... 
NAO ESQUEÇA DE ESCREVER 
O MEU: "TEKINHO" ! 








EXPERIMENTE 
SEGURAR [Smgr] 
APERTADA E 
PRESSIONE [EDIT | 
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DEV ASS RELA NR PSC A 
E RAD, 


QUE Bom! 


[SmiE7] 


APRGOU TUDO! 


PRINT 23H 















APERTE AS TECLAS: 


DiBjojafs 








meme 




















PRINT 
<«& o e NEW 










OBA! APARECEU 
NO ALTO DA TELA! 





VAMOS TENTAR FAZER ; 
com OUTROS NÚMEROS? . 





PRINT: 
ANDafi) o AND * SO] | NEW . 
PRINT 


S1[D 4] NEW ú 
lp "Je allr &jle a)[i5:] 


; PRINT ; 
significa imprimir. 


a 


o Tente imprimir 120 na tela, 
usando a letra O. 
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USANDO A 
LETRA O ?/ 


OBS.: 
VEJA BEM A 
DIFERENÇA: 


número zero: O 
tetra O: O 








QUE BONITINHO! 
ÊLE AVISA QUE / 
ERRAMOS COM O 





Então vamos corrigir: 


120 [une 












FUNCTION 


Para apagar apertamos as teclas: x 
LINE 





AH! ES 


LIMPA A TELA! 





significa limpar a tela 











Vamos brincar com a tecla SHIFT ? 


Mantenha SHIFT | apertada e pressione 
outras teclas: 






ASPAS FICA 
JUNTO COM À 


LETRA Pp? 


17. 




















VAMOS TENTAR 

ESCREVER O NOSSO 
NOME NO ALTO DA TELA 
USANDO ? 








ATENÇÃO! 
com NOMES 
DEVEMOS 
USAR ASPAS | 


PRINT “TEKINHO"R 


























Brincando com os nomes dos amiguinho 


PRINT “PRULINHOS LINE 


a 
.. 





NEW 
PRINT “THIAGO” LINE 


NEW 
LINE 


PRINT “ALEPH" e ; ú 


PRINT significa imprimir. 
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a 
m 
H 
q 
a] 
= 
+ 
1a 
4 
1 
o) 
ad) 
D 
Tr 
[8] 
q 
a z z 
< 















COMO SERA QUE 
Somamos 2+2 no 
MICROCOMPUTADOR? 


PRINT 4+10 


PRINT S-E 


PRIMT 3S+3+E 






PRINT “S+l=!:5+1 


PRINT “lQ-5="4: 


EXERCICIOS 








ASORA É so 
APERTAR 
NEVU 


NEW 
LINE 
NEW 
LINE 
NEW 
LINE 
NEW 
LINE 
NEW 
LINE 



























ESTE QUADRADINHO 
CHAMA-SE CURSOR E 
SERVE PARA NOS 
- ORIENTAR. 











Escreva PRINT “TEKINHO” mas não aperte ris 











Agora 
mantenha 


Pressionado 
e aperte 
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várias vezes. 
À PRINT “TEFRBINHO! 







(QUE BONITINHO! Y 
BO CURSOR VOLTA NO É 
A SENTIDO DA FLECHINHALS 









O que'acontece usando 


mr 
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por UNPLOT neu 
a 


ç Star E) 
[w =] (E ei |& 
E] co TAN 
SAVE DIM 
so raves | BOW | 
Au| (Se) (DG! 
a ] ARCOS 


ARCTAM 
cory CLEAR con 


AT 









Mantenha [SHIFT | 


pressionado e 
aperte EM | 












com [Stirri 


O CURSOR 


vira [6] 


GRAPHICS 
E 















MANTENHA SHIFT 
PRESSIONADO E APERTE 
AS TECLAS Com DESENHOS: 


+ 
à 


Para apagar tudo aperte 
k EDIT 
e [SHIFT 
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EL us quis 





QUE TAL ALGUNS 
EXERCÍCIOS ? 


1 — Suponha que você escreveu o nome da mamãe,e quer colocá-lo 
no alto da tela. O nome deve estar entre aspas? 


3 — Suponha que você quer saber quanto é 12+7 e usa aspas. 
Está certo? 


a — emo a mm o O O O a e O O O O O mm o e e O e nr e mo a mm mm 


4 — Escreva na frente o significado de: 


PRINT 


Rea = | 













QUANTAS COISAS PODEMOS 
FAZER USANDO PRINT 












ESCREVER BEM 
NO MEIO DA 
TELA ? como?! 





TERIHHO 





ssasa sesesses snsesnazaszseons essas 
eussasa ecvasecsangsanasasauss cs asa. 
sesseccsreuas . 5 v0unusuascaca.a o. 
rca crer pressa sacred 

Dessas sus ansusa eccsanursacansu vaca” 


“escuna ucêesascascunas ns su 256: 
asas zasassc ns tacar 4a Rs na a 0 6 0 1 8 
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UUFA! QUANTOS PONTINHOS! 


PREFIRO USAR [PRINT AT! 













cont 
a ? 
OBS.: Para ativar o 


cursor deve estar em 


Inverte a 
posição 












Primeiro, apertamos as 


PRINT PUNCTIOM 
teclas: 





FRINT EH 


Agora aperiamos 
CONT 


te)) 


AT 


PRINT AT IB 


Completamos e apertamos 
o comando: 


+ 
NEW à 
LINE 


SIT AT 3.10: "TErIMHOCE 





24 








; Os micros, da linha SINCLAIR, dividem a tela da TV 
em 22 linhas e 32 colunas. i 


º 2 8 10 2 15 18 zo = End 2 


“a 6 
EESEEREEEAREZEERRERZES 
ERNNNNNNNDHEDNNERRNERNNE 
Litiitijaitata 














QUE BONITINHO !! 
VAMOS ENTÃO ESCREVER 
TEKINHO NA LINHA 21 > 


sur] ist | a 
PRINT AT 21,10;"TEKINHOR 


PRIHT AT 5,25; car | NR 


Colocar a palavra AMOR na linha 21, coluna 2. 


FRINT AT 21.2: "AMORE | 


+ 
5 


| Colocar a sigla TKB5 na linha 12, coluna 5. | 


PRINT AT 15,5; CTKES" 
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COLOCAR UM 
PONTINHO NO 
CANTO DA TELA? 





: ' PRIM 
Existem três PRI 
maneiras: PRI 






PARA ATIVAR 
[TAB] O CURSOR 
DEVE ESTAR EM , 


| pm 


E 









b) PRINT AT Q.32:"."B 4 


c) PRINT “(30 ESPAÇOS). “RR 
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QUERO COLOCAR 
UM PONTO 


NESTE CANTO! 





A maneira mais fácil é: 


PRINT". 


Porém podemos PRINT AT 2.0;"."B | nc 


usar: E 
PRINT TRE 04"."B NEW 
LINE |. 


uv N EXEMPLOS * 
PRINT TAB cdunas 






PRINT TAB 10; "HICROBOVS"B 


YU 
a 
E 
S 
+ 
a 
tu 
ta 
[Ri] 
[RU 
Db 
ui 
H 
aq 
| 





COLUNAS .:. 31 






ONDE ESTA 
O PONTINHOÉ 









HAVIA ME ESQUECIDO, 
ÁS COLUNAS vÃo NO 
MAXIMO ATÉ 2414 






OBS.: Sempre que usarmos coluna maior que 31 o 
TK acusa CÓDIGO B. 












PRIMT AT 2,35; 


FRIMT AT 15.56;"TE"M EM 
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— fim 












oBA!. 


NOVIDADES! 


O micro guardou em sua memória quando 
usamos 
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SERA QUE 
A:2 E E=2 
CONTINUAM GUARDADOS 


NA MEMÓRIA 
bo MICRO? 












MANDE O MICRO 
IMPRIMIR NA TELA: 


PRINT A 


PRINT B luna 












NEW 
LET Cai LINE 


NEW 


r 
m 
+ 
ma 
“ 
5) 
a 
z 
m 





EW 
PRINT C+D LINE 
PRINT C4C' E 


PRINT "C+C=";C+0 


PRINT “D+DC; D+D 


z| sal [5% 
zm 2 
& me| |mó 


PRINT CD+C+sb= 0 G+l+D LINE 
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Faça: PRINTE 





PORQUÊ ?/ 


Esquecemos de dar um valor para E. Faça: LET E =10 FEI 


ABH! acorAa O 
| MICRO TEM EM 
SUA MEMORIA 
QUE Esto. 


























MANDE ENTÃO, 
O MICRO IMPRIMIR 


PRINT E 






—- 1-E NEW 
LET AIl=S LINE 
LET AZ-10 NEW 


. PRINT AL+AZ 






PODEMOS MISTURAR . 


LETRAS COM NÚMEROS?! PRINT AL NEW 


LINE 





O TK recebe os nomes, que podem ser letras misturadas com números junto 
com os valores dados. 


Podemos imprimir na tela qualquer um. Veja: 


PRINT Ago | NE 

PRINT REQ+MI Ea 
PRINT SA+TITIO 
PRINT I-REa 
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VAMOS FAZER UMA 
BRINCADEIRA com OS 
NOMES DOS Nossos 

+ AMIGUINHOS ? 





PRINT TAIZ+RUI 
FRINT PRULO+RUI 


PRINT PEDRO-TAIE 















LEMBRAM-SE DO 
ERRO 2? vAMOS 
FAZÊ-LO APARECER! 


ERINT LUIS 7 Nem iii suas) 
O erro 2 apareceu porque não fornecemos um valor para LUIS.+ 
LET Cutasco. | to 
Pronto. Agora podemos executar. 


PRINT LUIS 
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Para fazermos uma multiplicação 
5x3=15 


como faremos no micro? 














ALGUNS EXEMPLOS: 


| NEW | 

2x4 pe TUT Ses LINE 
TT TE NEW 

7x3 EETHT Es LINE 









TAMBEM 
E FACIL! 





ALGUNS EXEMPLOS: 






SERA QUE 
PODEMOS MULTIPLICAR 
E DIVIDIR PALAVRAS 
MISTURADAS com 
NÚMEROS ? 


PRINT 12/35 
PRINT &/ 








LET PRULO 


PRINT z:pauto [mx] 
NE 


PRINT 10/PAULO[K] ç 


OBS.: Sempre que dermos um valor a uma variável, ela passa 
a ser um número. 





VARIÁVEL? 


O QUE E isso? 





VARIÁVEL significa tudo aquilo 





que varia conforme nossa vontade. 





EXEMPLO: 
Eu quero que o nome 
PAULO seja 10. 


NEW 4 
LET FRULO=IO 


ou eu quero que seja 12. 
LET PRULO=IE 


ou eu quero que seja 220. 
LET PRULO 22d per] 
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É INTERESSANTE 
OBSERVAR QUE 
TUDO QUE ESTA 
ENTRE ASPAS 


| SAI IGUALZINHO 
NA Tv! 


Por Exemplo: “2+2” não 
se alterou. , 










Vamos então colocar o 
número 1 na frente para 
ver o que acontece: 


Aperte agora o comando Ea 


TRANSFERIDO 
(PARA O ALTO? 
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iBPRIMT “2 


RUN E 





Aperte as teclas 
amd 


z NEW 
Rs LINE 


COMANDO DE 
EXECUÇÃO 





RUN significa execute, corra, ande... 


Aperte [r 5)| ue | quantas vezes você quiser 
e observe que o micro executa a operação 2+2. 


Agora uma surpresa: aperte [Ne que a linha - 
1 volta à tela novamente. a ds 













OUTRA SURPRESA 4 

DESLIGUE 30 A 

| TV E DEPOIS LIGUE-A 

NOVAMENTE. A 

1BPRINT * LINHA 1 NÃO SE APAGA! 
A linha 1 está arquivada na 
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memória do micro. 



















E SO APERTAR 
REAPARECE | 












PRINT Cê 


E+2=" 
PRINT. “TK Es“ 
SHPRIHNT VERASIL 


PARA EXECUTAR VARIAS VEZES 


APERTO [RI iES|vaRIAS VEZES. 


NÃO ESQUEÇA QUE APERTANDO 
NEVÍ AS LINHAS REAPARECEM. 


LINE 
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t 


À Vamos colocar mais linhas? 


10 PRINT “losld="; 10+10 
RIM 


15 FRINT “SAO PRULOS (1) 










PARA QUÊ 
BERVE O | 
CURSOR. 

AUXILIAR ? 













“ERASI 
PRINT “10+1€ 
Q 


Ei 
À ISBERINT o" 








Aperte [smier] [E] e pronto. Agora você pode modificar 
a linha 15 caso desejar! 


Aperte [SHIFT | [7 £| várias vezes e observe o cursor auxiliar 
subir. 


AARI que cesar! 
PARA MODIFICAR A 
LINHA 5 EU LEVO O 
CURSOR AUXILIAR 

ATÉ ELA E APERTO 





“O cursor auxiliar desce. 
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foral mem 
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E AGORA ? 
COMO VOU APAGAR 
TUDO ISTO, SE 


SOMENTE EDITA 
A LINHA 2 


PARA APAGAR 
APERTE EE E 
RECORDANDO: 
= ht 
SHIFT O cursor auxiliar sobe. 
Zom] Edita a linha que está com o cursor 
SRIFT auxiliar. 
[sHirT | O cursor auxiliar desce 





NEW 


[NE] Apaga tudo (inclusive as linhas). 
cis 

NEW 
Apaga somente a tela da TV. 











Agora, vamos fazer nosso primeiro programinha. Transporte 
as linhas como já aprendemos, para o alto da tela. 









“BuaL OQ VALOR DE A7 
a 





THBUT 
PRIIT CRsE=";B+6 


“GuUaL O VALOR DE EST 





Entrada na 
memória 


0 UBLOR CDE 
U UALOR DE 
























= QUE BARATO! 
VAMOS FAZER MAIS 


VEZES, APERTE 
R 


GUBL QU VALOR DE Rº 
QGUEL O URLOR CE ES 


A+B=1E 
cá E, NEW 
ET sa ee 
Er IE fas 
Un 
AE+E= 











PODEMOS COLOCAR 
MAIS LINHAS NO e 
PROGRAMA 

60 PRINT “A-Bº AB 


oUR o O UBLOR 


da 
OBPRINT " 


; NEW 
Feça o programa roder com fra) [UM] 
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QUAL O VALOR DE 7? —»> a [MM 
QUAL O VALOR CE E» 3 E 
A+e=11 

R-B=5 

EXERCICIO: 


Complete usando o microcomputador. 


Daz—lz Ei—— & R+E= A-E= 
2JA:—> 0 E:—>lS n-E= A-E= 
3Gr7:—>— & E:— & A+B= R-E= 










Lembre-se que podemos des- 
ligar a TV sem alterar o 
programa, pois o programa 
está arquivado na memória 
do micro. 


QUE TAL OUTRO 
PROGRAMA ? MAS 

PRIMEIRO PRECISAMOS 
APAGAR O EXISTENTE 












new 
Para apagar apertamos e pronto. Já podemos 


colocar um novo programinha. 
1º PRINT RE VOCÊ SE CHAMAS" 


15 INFUT & 
O comando —» NEW elimina 


IF tudo que existia na memória 
do computador. É como se 
U tivéssemos desligado o com- 
CHRS putador. 
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“COMO LDCE SE CHAMAS 


HE 
“BONITO NOME. CLAs 










AAH! para NOMES,PALAVRAS, 
SIGLAS ETC USAMOS[S! PARA 
DIFERENCIAR DOS NÚMEROS. 


A 
OTIMO! VAMOS TESTAR 
NOSSO PROGRAMA, 


APERTE EE 


CcuMO VOCE 


E HA7 - LUIS [E 
BONITO HOME. ; 


A 







LEMBRE-SE : 
FARA QUE AS LINHAS 
REAPAREÇAM DEVEMOS 


APERTAR 
Para apagar tudo, 


a4 















MAIS UM PROGRAMINHA 






“PRINT AT 
» NOS JA 
APRENDEMOS! 


CO PRPRI” 


:PS 
PE 
PS 














Faça O programa acima e rode-o, sempre usando fp Bites 
Colóque o nome do papai e aperte [15%] 







QUE LEGAL! 
USANDO PRINT AT PODEMOS 
ESCREVER O NOME DO PAPAI 
VARIAS VEZES! 





Podemos colocar mais linhas em nosso programa. Tente fazer isto! 
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e sntia 


| NÃO APAGUE O PROGRAMA AINDA. 


-Coloque mais esta. linha: 
NEW 
17 PRINT AT S,42;E8 
Agora rode o programa RUN | NE 


ERES CEETRE TE 


















ERRO B 
NA LINHA 
















QUE LEGAL! VAMOS 
COLOCAR OUTRA 
LINHA ERRADA? 


15 PRINTAT S5s;pg rem 










AAR! paoRrAa O 
ERRO ESTA" NA 
LINHA 15! 
















QUE BONITINHO! ELE 
NA LINHA ERRADA ! 
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veja nas páginas e 


48. 


Apague O programa anterior e faça este: 


10 FRINT “ENCHENDO A TELA R 
RE EFEO Ss” nes 
as Fut 











ocorre 
ENCHELICO TELA OCORRE ERFS3 
ENCHEHTO TELA OCORRE ERES 
ENCHETTO TELA OCORRE ErRi 


5 
ENCHENDO TELA OCORRE ESRA 
ENCHENDO TELA OCORRE ERRS 
ENCHENDO TELA OCOFRE ERRD 
ENCHENCO TELA OCORRE ERES 









ENCREU À TELA 
ATE À LINHA 24 







ALLAADANAULU UA AMA 


Agora rode o programa. 
RUN [ti] 






VAMOS COLOCAR 
MAIS LINHAS? 









Colocar mais linhas somente entre as linhas 
10 e 50. 


EXEMPLO 


E FARINT "FEEDS 
Usar Graphics 






Usar GRAPHICS somente entre aspas. 
























Ótimo, agora rode o programa. 
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Aqui está um programinha surpresa. É 


VOLTE PARA À 
LINHA d 


BREAK 


Para parar, pressione a tecla E 
SPACE 


QUE LEGAL(Í 





| E 
USANDO 
apprece ERROD 


Rode e pare o programa várias vezes 


usando [spacé | 








PODEMOS MUDAR A MENSAGEM ENTRE ASPAS 


PRINT BT 10,10; “2sTKEB:S" 
PRINT AT 10,10; "sas ++" 
| GOTO d 


E 


tê 


Agora execute o programa 


OBS.: Tente rodar 
o programa usando 












corto q (th 
coro e [E] 
Gato 1 

RUN S E 

Aqui está outro programa 
bem divertido. 






ESCREVER Nosso ). 
NOME ENTRE 
ASPAS? 













10 PRINT “ESCREVA QUALQUERCOR 


eu INPUT As 
“REPITA O ESCRITO EM 








Es 
SQ PRINT RT 15,4; 
62 PRINT AT 15,1; 
7cHcoTOo so 


















NÃO ESQUEÇA 
DE ESCREVER 
TEKINHO! E 





LEMBRE-SE :gReAk 
| spacé |para parar. 


| NEW : 

as linhas reaparecem. 
EDIT edita a linha 

na qual está o 


cursor auxiliar. 

















Fels) 
a 


Que GoNtTINHO! E 
VAMOS FAZÊ-LO? 


10 PRINT AT 2,24" 
£a PRINT AT 3,35 
ES PRINT BT 4,350 


sa PRINT BT 5,85 


Rodar com RUM [LINE 













GOSTARAM? AGORA VAMOS 
FAZÊ-LO MEXER-SE ? 





Coloque as duas linhas abaixo: 


SE PRINT AT 2.2: "o URI 


ao coTO 10 [he 


6 é 


- Ótimo, agora rodeo e 
veja que bonitinho. 


e—— 





AAB?! Então E 
ASSIM QUE 
FUNCIONA ? 





parado aguardando. 





novamente 
parado aguardando. 











PRINT 
INPUT N novamente 


arado aguardando. 


pa 
SR] 


PRINT "P=2" 
INPUT P 


mr 
E] 


FRINT o tkK=7" 
INPUT K 


; FRINT CN+PAK=";NSPSRO 
t 





US RA] 


po TA] 


| 
É 
| 


qa 
[o] 






INPUT 


OBS.: A função faz parar o 
programa e aguarda a entrada 
de um número para arquivar 
na memória do micro. 


A 
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Um programinha para auxiliar-nos a entender melhor o funciona- 
mento do micro. 


E PRINT “NOME=7" E 
| Es 
12 INPUT Ng o Bossa 


à CLS À 


RINT "IDADE="" 


a 


es INPUT T 


2s CLs 


! E Asg=" ANOS: 


| QBPRINT M5;", VOCE TEM “;I;RS 


«VOCE TEM 


OBS.: Terminou 
na linha 40. 
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AGORA vAMOS 
APRENDER A FAZER 
QUADRADINHOS NA 
TELA USANDO PLOT 











NEW 
LINE 


Faça: PLOT GO.as 









PLOT XY 


e o q = 
O O + O O O O A O OR O O NO O O O O : TU O A E 

noi SR O O O 

NERRSNENNER ANGRERNERENERSENNEARERERRaNESEaa 











O E D.. 
RENA RRGaREaS ias 
DOT TS “ 
RERNNNNSSNNNNANA — ; 
ERRA E imo 
« 1 COS 
5) nm 
uu Tr ja 
[oa ae 424 
É EU PT 
= Ori .b 
E! dat Lg Elma 
e) MBm+a Ds] = 
CACO = = o TO 
Lo unida] Ea 
E Turma º e o 
ES E THH- E E s no 
E-ICoOoDncsHS3 
q Wibiiou a Sujo é eim 
JJASLACOZO q S 
= & Silo 
2 GososWBamm SitHs 
Y J Es 22 Os CE IO TA 
JE E A DO GALES DANMAD o 
EENRERASRSEREEaRNas 
NERNERRRRN t ] mi 
LIitáttitita sia rt TAI O RR O RR ER RR MR RO 
ENNEM HENERER ENNNNRNENNNNENEE 
5 O O O O 


(3 
16 
E 


ce: 8 US OCO O OR RO RR E A O E RO SO O 
O O OR DD O O RO 
RENRNRSNER AAA E 3 


HAHAHAH PA did 
RENNERREN EA 

| DENNSENNSSNEREASESAEESENSNS EAN RO Na 
oC OD 

Er RENNES ERRO MO O MR O O O DO TR O 

CC RRRRESNNENNENEESRRSNSENENO MNEENESO SEA 
TR O OR O O O ED O RD AS DO E O E ERERRR NNE 
EE 

NENE 
DENENRENEENRENSANSaNANNEEAAS HE & 
RREANNNS ES aNNSEnanas 

[aa NE NNE ENNNENE aa EE no DONRNERNAES 


Dn O NS O DR 
| ERNEHEN Litito) Eno 
REENSENNSNANSSEAANASESaNNNN NANA aS RENAN = 
MR O O O O O O O I 





Colunas (PRINT) 








Linhas (PRINT) 


adiada (PLOTI 













VOCÊ VA EXAMINOU 
DIREITINHO O QUADRO 
ANEXO PARA BRINCARMOS 
com PLOT X,tg 
ENTÃO, VAMOS L 





E! 





Faça primeiro no quadro um quadradinho sendo X=50 e Y=10. 


Pronto? Agora faça na TV usando PLOTX,Y 






Faça 
Faça 
Faça 
Faça 
Faça 
Faça 


Agora vamos nos exercitar para” memorizar. OBS.: 
faça no quadro, depois na TV. 












Primeiro . 


PLOT X,Y para X=10, Y=32 
PLOT X,Y para X=83, Y=43 
PLOT X,Y para X=0, Y=0 
PLOT 0,43 
PLOT 63,0 
PLOT 33,33 
PLOT 22,22 







































USANDO Prot xd] 


PODEMOS PAZER. 
DESENHOS NA TELA! 





1 PLOT 3,20 [1X] 
2 PLOT 4,21 
3 PLOT 4,19 





« pLOT s,20 [88] 0123456 
RUN E 2 
Aperte Ra Nam Ee 
21 
-Na tela vai aparecer um 20 
desenho. assim: we 19 











QUE DESENHO BONITINHO! 
VAMOS TENTAR PAZER O 
PrOGRAMA 2 





8 9101 12 
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63 quaDradiNHos 


PARA FAZERMOS 
UM RISCO USANDO 






. 
. 

& 

LES 

1 

a: 





Tem razão Tekinho, é muito trabalhoso, mas existe um jeito 
mais prático: 


Podemos usar PLOT X,2 de maneira que o valor de X vá cres- 
cendo de 0,1,2,3,...até 63. 






180 LET. X=a 

22 FPLOT X,2 Depois, vai-se somando - 
30 LET X=X+1i «+ 1 ao X de maneira que 
42 GOTO Z2 “ ele vá crescendo. 


- Agora rode o programa RUN 





Coloque no programa a seguinte linha: 
“3 PRINT AT 24,10;"PLOT “ix; D” 
Rode o programa usando RUN 
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PLOT 64,2 
ERRO B 


Eco 





AAR! AGORA ENTENDI | 
O XM FO] CRESCENJO 
ATE O GUADRADINHO 
CAIR FORA DA TELA! 


Que tal fazermos dois riscos na tela? Então adicione mais esta 
linha: 23 PLOT x.10 





Ótimo, faça rodar o programa. RUN [8] 














QUE LEGALI! 
VAMOS COLOCAR MAIS 
LINHAS PARA FAZERMOS 
MAIS Riscos NA TELA 2 


Entre as linhas 20 e 40, podemos adi- 
cionar linhas à vontade. 


EXEMPLO: 


22 PLOT X,15 
25 PLOT x,d2 q 
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q 
. 
. 

Y 


Eat ii) 
[E 
+ [R] 
ty 










PARA FAZERMOS 
RISGOS VERTICAIS 
O'Y" vARIA DE 








30 FRINT AT 19,10;"PLOT 26,";w 


ta GOTO la 
Para rodar RUN 


Observe que a linha 20 LET Y=Y+1 é responsável pelo cresci- 
mento do Y. Então vamos alterá-la assim: 





28 LET v=v 40 |8w 





PLOT 19,44 








) 


AAHH quer Dizer 
QUE PODEMOS 
TROCAR TAMBEM 
O N22 POR 3 ouUs, 


5 ETC... VAMOS LA ? 

























4 k 
SARURESaNEERRENREN 





Podemos também adicionar mais linhas verticais: 


15 pLOT se,v [1&) 
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AQUI ESTA OUTRO PEQUENO PROGRAMINHA. 


O QUE SERA QUE 
ESTE PROGRAMA 





LET .N=0 

PRINT CN=":N 

LET N=N+1 
BSoTo s 






tos à 


E) 


ie 





Para executar o programa use RUN 


Gostaram do programinha? 
Vejam como funciona: 

2 LET N=Q 

Arquiva na memória que N=6. 
5 PRINT “N=";N: 

Imprima na TV o valor de N. 
S LET N=N+1 

Some +1 ao valor de N que 
está na memória. 


13 GOTO 5. 








Co Es py 





Volte para a linha 5. 










AGORA QUERO QUE 
APAREÇA MEU NOME 
JUNTO COM OS NÚMEROS 
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A 











Podemos colocar nomes dizendo ao micro assim: 


SE N=5 ENTÃO PRINT “TEKINHO” 












“oa! QUANDO 
NG MEU NOME 
APARECE NA TV. 


Vejam como ficou o programa: 


+> 


LET N=B 


u 


PRINT CN="º;N 


A 


IF N=5 THEN PRINT "“TEKINHO" 


[1] 


[et 


LET N=N+1 
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QUE LEGAL! AGORA EU QUERO 
COLOCAR UMA LinNHa ASSIMi 


iSe N=10 ertão limpar o tela. 


Ótimo, para o micro entender coloque assim: 





S 


7 IF N=1D THEN CL 













NEW 


Executar usando: FUN | tm 






POR QUE O 
MICRO SO 
IMPRIME DE 
CIMA PARA, 
Baixo ATR 


Que tal, quando N=20 o micro passar 
a imprimir ao contrário? 


Rodar o programa com RUN 
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des. 


| Este programinha é parecido com o anterior. | 







LET N=a 
SCROLL 
PRINT CN=]:N 
LET N=hN+1 
GoTo 2 





Ge uy 


t+ 





SCROLL] E PARA IMPRIMIR 
NA TY DE BAIXO PARA CIMA ! 


Que tal se mandássemos o micro fazer assim: 


Rodar com RUN 
SE N=5 | SE N=5 ENTÃO PARA 4 SEGUNDOS | PARA | SE N=5 ENTÃO PARA 4 SEGUNDOS | SEGUNDOS 


MANDAR O MICRO PARAR 
UM POUQUINHO E DEPOIS 
CONTINVAR. COMO ? 







Rodar o programa com RUM [st] 


Podemos colocar mais paradinhas: 
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Este programi- 
nha vai nos di- 


zendo em qual 
linha o micro 
está parado. 












PODEMOS FAZER 
PARADINHAS 
USANDO PAUSE 120 





1 segundo — usamos PAUSE 60 
2 segundos — usamos PAUSE 120 
3 segundos — usamos PAUSE 180 


10 segundos — usamos PAUSE s00 


1 minuto - — usamos PAUSE 3600 


“ESTOU PARADO NA LINH 


189 
"ESTOU PARADO NA LINH . 


180 É 
58 “ESTOU PARADO NA LINH 
sa PAUSE 280 


o cts 
«5 GOTO. 10 





Podemos executar este programa de várias maneiras. Exemplo: 


64 


RUN E 
ruN ge [my 


coro 18 [ty 


coro sd 














Veja a diferença entre: PLOT X,Y e PRINT AT, 


LINHA, COLUNA; "...” 





o 1 
10 PRINT AT 19,8;" 
22 PLOT 5,2 ; 19 
20 
2 
21 


É PLOT5,2 











NEW 
Aperte RUN 


e veja a diferença. 










O QUADRADINHO 
MENOR E O 









À CASINHA DO 


E Quarto 
VEZES MENOR, 












AAH! APAGA 05 
QUADRINHOS 
MENORES 





10 PRINT AT 192,2:"H 
20 PLOT 5,2 

30 lan 

a + 










UNPLOT APAGA 
QUADRADINHOS 
PEQUENOS 






VAMOS 
APAGAR O 
QUADRA DINHO 










1 PLOT 10.18 
ê o 19.10 


ceoToO 





à FRINT AT 9.18:“BRASILO 
S UNPLOT 28.24 . 
10 GOTO à 


PEINT AT 0.10; "BRASIL* 
DneLor ceSsao” BRASIL 


1 PRINT AT 9,10: "BSRASILH” 
S UWIPLOT 23.E5 
19 GOTO à 





s prIT AT 2.10; "RSRASILB 
S unELOT EC.2s 

7 UNSLOT Ré.25 

10 CDTO 4 





Brincando com UNPLOT 





20 21 


Lembre-se : 


RUN 
Para rodar 
LINE 


BREAK 


Para parar CE 
SPACE 


para continuar CONT 
podemos usar 





BR A Ss 


24 25 


OBS.: Somente com 


REAR 


Lssacé ) [57] 


podemos apagar o 
PRINT AT 


' ? NEW 


PR q! 





L 
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Aplicações de UNPLOT 


ESTE PROGRAMA 

ME LEMBRA O XX 

CRESCENDO DE 
4 EM 4 







ET y=0 

LOT +.2 

RINT AT 19,10; "X=";X 
ET X=n41 

DTO za 


ns 
pf 
E 
= 
2 
a 


e 
al 
= 
a 
a 







L 
e 
P 
L 
e 






PODEMOS USAR 


ES rara APAGAR 
65 QUADRINHOS 
FEITOS COM 






Ótimo, execute o programa e 
observe o micro ir PLOTando 
quadradinhos. 










Agora usando  UNPLOT . vamos a- 
pagar os quadradinhos PLOTados. 





X=x-i 


agora o X diminui 
Eiioa - é é 
ja caro 180 


de 1 em 1. 


14 
Na 
a] 
ET 
TU 
om 
on] 
jun 
ta 
2x 
“+ 
ar 
m 
m 
a 
+ 
Um) 
[ua 
[es] 
[so] 













QUE TAL ? 
GOSTARAM ? 
COLOQUEM AS 
LINHAS ABAIXO. 
NO PROGRAMA É 
VEJAM QUE 

BONITINHO! 






Rodar com RUN | 








+ 
“ 


: PRINT AT 12,10; "UNPLOTO KO 


EPACE 
5 IF X=D THEN STOPÃA & 


Rodar com RUN 
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CóDIGO 9 NA 
LINHA 126 ? 








UNPLOT B,2 









O QUE 
SIGNIFICA 


Sempre que no programa existir 





E 
s10” . Eq + e 
+ O micro pára e fornece Observe a diierença 
código 9. usando | 
Il 


PRINT “STOP=PARE" “1 PRINT “STOP=PARE“ 


Ss GoTo 2 








1 PRINT “STOP=PARE”, 
S GOTO 2/0 








1 FRINT "STOP=PRREC: 
Ss GDTO 12 















(3) virouLA? 


E 
(3) RGOLA? 





| | Faça rodar com RUN. [R 5) [5] 


Observe que a vírgula expulsa 
o “A” para a coluna 16, ou 
seja, a casinha 17. 


a à 
«seTBSCN CRU 
e Faça rodar com RUN 


Observe que a virgula expulsa 
o “A” para a coluna 16, ou 
seja, a casinha 17. 


| Faça rodar com RUN Ele] 


Observe que na última linha 
sosesgregsaser a o o o seja, 18 
casinhas) então a vírgula ex- 
pulsou o “A” para a linha 
RUN de baixo. , 


| 


Agora troque as vírgulas por ponto e vírgula e rode o programa. 
















4 PRINT "01234557890123<%6" 
2 LET N=0 : 
3 PRINT AT SaNpexe.car 

E 5 PAUSE 120 
6 LET NaN+48 
8 coTo 3 


RUN [8 













Rodar com RUN. | 


Observe que do preencher 
as 16 casinhas, a letra “A” 
é expulsa do setor para a: 
linha inferior. 


| Agora troque a vírgula. por ponto e vírgula na linha 3.. | 


Assim 3 PRINT AT 1,N;UXº; CAS Ponto e vírgula 


Faça rodar e observe a letra “A”. 


Aplicação de: 





SCROLL 
VIRGULA 
IF THEN 





LET N=ã 

IF N510 THEN SCROLL 
PRINT “Nst;N,"NENST; Nem 
LET N=zN+41 

IF N=8 THEN PRINT “MICRO 
GoTO 10 


oVundU 






Quapaga pão 


JE, |N>49 THEN, SCROLL 


se NFOR MAIOR QE IB 
ENTÃO EXECUTE SCROLL 


n 


ARQUIVANDO NA MEMÓRIA DO MICRO 


10 LET B$="BRASIL” 18 PRINT "N=S" 
20 INPUT N 

















Apertamos 


NEW 
LINE 


Apertamos 


NEW 
LINE 


Apertamos 


NEW 
LINE 







PARA ARQUIVAR USAMOS 


OU ENE] 


PARA LIMPAR À MEMÓRIA 
OU SEVA ARAGAR uUsAMOS 
CLEAR 








usando clear 










LIMPOU AS 
MEMÓRIAS. 
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VAMOS PROGURAR 
ENTENDER MELHOR O 
QUE SE PASSA 
DENTRO DO MICRO. 











1 0/8 


o [ clear | | clear | limpou a memória 
que guarda as variáveis. Por- 
tanto, o PRINT A não fun- 
cionou. 
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Fazer um programa que nos forneça a tela assim: 


como - 

ODEMOS FAZER NO 

PROGRAMA PARA O 

"E" VARIAR ASSIM 
DE BATE 15? 



















fem mem om om mi a a o e 
MEM O Dr MO E OD MO DA O 


PRRRRHRIDONONU! 


URI 








| 105 FOR E=5 
| 110 PRINT o" 
130 NEXT E 


TD 15 


E=";E 












RUN 8 








USANDO fro | [Fox] fx] 
O PROGRAMA 
FICOU PEQUENO 
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AAA 


DEU OT UTC 
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5 FOR T=5: 
15 PRINT o * 
2a NEXT T 


RUN E 









FOR T=55 TO 00x 
13 SCROLL 
13 PRINT o “T=";T 
2) NEXT T 






RUN E 
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OBA! PoDEMoS 
BRINCAR COM 


Cstófatu quo 


res 





PROBLEMAS DIFERENTES PORÉM 
RESULTADOS IGUAIS 













5 FOR X=0 To 53 
12 PLOT x,41 | 
15 NEXT X 






Dista 
Ss o 











Agora vamos colocar 
mais PLOT X,Y. 





RESULTADOS 
NA TELA IGUAIS? 






: FOR X=2 Tã 55 
PLOT Xx,9 
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So ia 
20 PRINT OCN=";N 
30 NEXT N 









10 FOR N=1 10.5 
2a PRINT CN=0;N 
RENA 













e 
| 22 PRINT O"N=":N 
NEXT N 











: FOR Ai a 
28 PRINT NLM 
Se 






uh iam 


15 LOOPING 


7 























nstagaga 
OG UnG an 


CARAS TAP IES 


1 


PRINT AT 


NEXT € 


3,10; "COLUNAS" 0 








Rodar com run 


Para uma melhor visualização da vírgula, vamos 
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15 do programa acima. 





A NÍR 










GULA RESERVA 
UMA CASINHA SÓ 5) 






= 1 vírgula | 


Se; 2 virguias 


j2 vírgulas] 

















| Aplicações de [F“E][s 5)[. N) com [u 7) 


PRINT PROGRAMA SUICIcso” 
PRINT “uUQU CONTAR ATE Z0 E 


FOR a=2 TO 20 
PRINT 3 

IF 5=20 THEN NEU 
NEXT & 


NT “PROGRAMA soRQLI! 
T FUDU CONTAR ATE Lã E 


TO so 
THEN SCROLL 
FOR MAIOR OU 


1GUAL A 48 
ENTÃO SCROLL 









u 


PRINT NproGRAMA SURF 
Raso TO “3 











Km 







- UMDDUA 
One DADE 








A>15 SE A FOR MAIOR QUE 
45 ENTÃO EXECUTE SCROLL 





79 






















8o 


LOOPING PERMITIDO 





QUE BONITINHO! 
UM LOOPING DENTRO 
DO OUTRO! 























| Exemplo de Looping: Duplo Permitido | 


FOR X=0 TO Es 
2“ FOR v=à TO 45 
5a PLOT XY 
BO NEXT W 
NEXT 















PLOT Xx,Y 


memo. 








na 
im m Dio 





Jum euis 
Ls NT] 
Es 


PRINT AT 









VÃO CAUSAR 
UM ACIDENTE! 











FOR “=Q TO GI« 
FOUR v=9 TÃ L3<« 
PLOT Xevo. 

NEXT x 
MEXT w 








eo Ledo ie] 


JDM tes 





DEVEMOS 
EVITAR 
ACIDENTES! 
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CONTAGEM REGRESSIVA 





NO LANÇAMENTO 
DOS POGUETES 


USA-SE A CONTAGEM 
REGRESSIVA! 











FOR N=22 TO q 
ERINT o UN=U;N 
NEXT N 






RUM R 


Faca-o rodar e veja a contagem 
regressiva do “Nº”. 


Lacamento de Foguetes 


N contagem 
regressiva 
B (eum) 


Y foguete 
subindo ' 


hat 


A 
2 
a 
a 
3 
4 


1 
- 
= 
4 
s 
6 
? 
S 
8 
E 
a 
E 
a 
o 
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t 
t q 








Gu 






STEP 
EEB 


STEP-1 


nes a TU O fe OLD DIS pH 


SS Ui 
l 
to 








n 
4 
UR 








R=2 
-A=8 
R=ê 
B=4 
B=B 
&=y) 
ae 






| FOR A=ie TO 
T "A=";A 


e STEP 
 PRIN ' 
NEXT R 





«a. 
4 
3 
l 
w 


vnDnT 
RN 
po mM 








[2] 


papa) 
Mota 


tod 





(E) 





Fo] 
N 





in 
+ 
ua 
V 
! 
n 








[62] 


Es Ujto 


px 
Ma! 





o) 
" 
Es 
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j 
al 


















s CL5 

& PRINT "JERESCENPERDaE* 
2 INPUT 

s 


as : 
"REPETIR O NOME QUANT 


Para executar O E Ra CO use RUN. Ea 


Não apague O [7 Não apague o programa 


VAMOS BRINCAR 
com O cuRSOR 
AUXILIAR ? 












Vamos lá 


aperte [JE DENIE 


Pronto. O cursor auxiliar foi para a linha 15. 


Traga-o de volta para a linha 140. 


Assim:L IST Is ef] 






NÃo SE ASSUSTE! 


APERTE [RE] 





Brinque mais vezes com 
o cursor auxiliar antes de 
passar para outra página. 
Exemplo: LIST & «LISTS 















VAMOS 
ESREVER 
TEKINHO? 


CLa 
PRINT MESCREVA QUALQUER COI 










Agora que já brincamos com 
o programa acima, vamos 
modificá-lo: Mas como? 


STOP 


Am 







Uma dica: 


Aperte rapidamente [tee ] até aparecer o código D, agora 


é só apertar e pronto. 
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io FOR N= TR 
EA PRINT o Chn="; 
HEXT 


Li Nan 


ps 


Qual é o correto? 


“1 
t2 
RA] 
" 

[8] 
+“ 
Ls] 
í, 


4 
= a 
EA] 

= 

u 

ta 

Mi] 

| cd 


MU 
[ui] 
om 
= 
n 

+ 
Ea | 
õ 
te 
5 








=3 
W=E 
la FOR H= Jo STEP =P 
Eu H=9 
25 PRINT CND" N W=14 
30 NEXT N 
das 
[Jor H=Z TO 11 2TEP & 
SCROLL 
Emi N=11 TO 3 STEPS 
UMPLOT NAN 


FOR I=2 TOS 
PRINT ! Isz 
MEXT 177 





5 
s 





ra 


4 FOR F=ia TOO STER 
3 PRINT "P=";P 
= q 


Maca MM 
cam pico 


oUuNnTo 


[Jror p=10 TO 2 stTEP E 
[lror p=1a To é sTEP -1 
[Jror P=10 To o sTEP -2 


[29] 
+= 
19 











que devo colocar após A$ para 
ncher a tela de ALEPH? [Jou[-] 


PRINTAT 10.5;"ALEPH” 
UMPLÓTO SS. 
STO i8 








Completar de maneira que o “H” 
da palavra ALEPH fique piscando. 


AT 13,20; "EZk' 
MT AT l&E,Z0;"0 O" 





Teste e veja: apareceu um caminhão carregado! 
Assim: 








RT li 

at 13 

Fr 18 

PRINTOART 17 

ED UNPFLOT 40,1 


Veja que ônibus bonitinho! 
Mas estão faltando as janelinhas. 
Tente colocar as janelinhas usando UNPLOT. 


UHPLOT 





Es ao tum 
30 UNPLOT i SE UNELOT 
EE UNFLOT x 50 UNPLOT. NE 
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STRINGS NÚMEROS 


LET Ag="BONITO * LET H=d 
LET M$="THIBSGO * LET A=8 
“LET Báz'NOME “ LET E=2 







srRINT 


E PRINT 






E FRINT A+B 





PRINT A,B 


É E 
PRINT AstEs d; É 
- Não e permitido 
E PRINT A 

E PRINT MaB a 

BONITO NOME à = 
| FEIHT A$,2s 

14 


THIRGO BONITO 


À PRINT M+A+E 





puta 
tala 


+ 


+ 


pm 


Uta 


E: 
5 


CHE 


1º 
45 


Wan 


Observe que as strings estão sempre entre aspas e não aceitam 
cálculos. 
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PROGRAMAS USANDO 
STRINGS 


“SEU NOME 2” 
15 INPUT Ng 

20 LET B$=" BONITO NOME” 
SO PRINT N$,B5 


10 PRINTVNOME DE UMACIDADES 


AS INPUT Ss 
20 PRINT ss 
30 GOTO 29 





TEM $ ENTÃO 
É STRING 





5 CLS 
«PRINT “QUE TABUADA vaMOS Us é 


£0 PRINT “QUANTO EM q» 
52 FOR A=1 TO 16 

59 PRINT AjtariT;tar; 
70 INPUT L 


SO IF AzT<>L THEN PRINT “ERRAD 
A RESPOSTA Et “;AsT : 
loop NEXT A 

ii? GOTO & 





PROGRAMAS USANDO 
NÚMEROS 


12 PRINT “SUA IDADE 2" 
À 25 INPUT 1 

28 PRINT I 

30 GOTO 28 








INPUT T 







«IF AsT=l THEN PRINT RT; Ch 




















1 INPUT AS 2 INPUT N 
k MEROS 
com NUÚMER 
os FAZER 
Porem ULOS! 
2 LET Bã="NOME & BRENO NaEo 
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PRINT INKEYS; 
GUTO 15. 





+ 
Rode o programa e aperte qualquer tecla. 

I 
| 
| apertar BREAK para parar. | ' 
l 
| 

Faça-o rodar e aperte rapidamente qualquer tecla, porque o 

programa não espera. 

! 


USUI 


3 
a 
= 
- 
= 


Rode-o e aperte qualquer 
tecla. 
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APERTO 


10 IM INKEySa“Se THEN PRINT Ss 






PARA 20 IP INKEYSSCNO THEN PRINT “N 
LIMPAR A 33 Esrisgpreeio teem eis 
TELA 





Rode-o e aperte: 


s 
N 
L 





10 LET x=30 
SO IF INKEvg2"S" THEN LET Xas- 


60 IF INREr$="8" THEN LET x=X+ 


70 PLOT x,20 
75 UNFLOT x,20 
se GoTO 30 








QUE LEGAL! 
APERTANDO AS 
TECLAS ÍSlou 
PODEMOS MEXER 
COM O QUADRINHO 





Adicione ao programa a li- 
nha 65: : 


- Observe que o X varia de 
O até 65. 


Observe que PLOT 64,20 PLOT 54,20 
o micro pára com código B. B/ra 
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PARA O PROGRAMA: NÃO 
PARAR COM CODIGO B» 
POPEMOS ADOTAR UMA 
CONDIÇÃO AO MICRO: 


65[se x=64 Exião puça x» O | 





LET X=30 
IF INKEY$="5" THEN LET X=X> 


IF INKEY$="8" THEN LET X=X+ 
IF X=64 THEN LET x=0 
x,20 





Podemos. colocar PLOT e UNPLOT 
-à vontade. Exemplo: . 
82 UNPLOT X,1& 


84 PLOT X,& 
35 UNPLOT X,8 







QuE BONITINHO! 
VAMOS COLOCAR 
MAIS PLOT ? 


LEMBREM-SE: 


BREAK — pára o programa mostrando 
código D. 

CONT  — continua o programa na li 
-nha parada com - BREAK, 


OBS.: Podemos iniciar este programa so- 


mente com RUN[2&%) ou 357510. 
























Aplicações de INKEY$, PLOT e UNPLOT. 


10 LET X=36 
30 IF INKEY$="5" THEN LET x=x- 


a 60 IF INKEyYS="8” THEN LET X=x+ 
IF X=64 THEN LET x=9 


90 GOTO 30 





PLOT x,20 Somente traça um risco sem 
piscar. . 

7a UNPLOT X,E0 Anda piscando, mas não tra- 

FejPLOT 4:58 ça o risco. 

4 

fa PLOT x,29 

?2| UNPLOT x, - a 

B2RjPLOT x,28 Anda piscando e traçando, 
O risco. 


7a) PLOT x,2a 
89) UNPLOT X,z0 
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talytão o + 
" 








LET Y=20 
IF INKEYg="5" THEN LET X=X- 


40 IF INKEYS="5" THEN LET Y=Y- 
IF INKEYyS="7" THEN LET v=v+ E 
IF INKEY5="8" THEN LET X=X+ 


980 PLOT X,Y 
1880 coTO se 






















FLECHINHAS! 






Faça rodar, mas não saia fora dos limites do PLOT X,Y, que 
o micro pára mostrando código B 






VAMOS ADOTAR CONDIÇÕES 
PARA QUE O PROGRAMA 
NÃO PARE ? 






6s [SE VE ENTÃO FAÇA V=8] 
70 [SE Y=44 ENTÃO FAÇA Y=0 | 
75 
go [SE X=64 ENTÃO FAÇA X=0 ] 





EXEMPLO: 65 IF w=a THEN LET v=483 
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MELHORANDO O PROGRAMA ANTERIOR 








yFaz o quadradi- 

nho andar para 
cima, para bai- 
xo, para os la- 
dos quando aper- 
tamos as flechi- 
*nhas. 





10 LET X=30 
20 LET Y=20 
25 LET N=2 
So IF INKEY$="5" THEN LET X=x- 


40 IF INKEY$="6" THEN LET v=y- 
50 IF INKEY$="7" THEN LET v=y+ 
60 IF INKEy$=“8" THEN LET x=X+ 
6S IF Y=0 THEN LET v=43 
78 IF Y=44 THEN LET v=0 
7S IF X=0 THEN LET x=63 


80 IF X=54 THEN LET x=0 
85 IF INKEy$="0" THEN LET N=N& 











ums 





















Condições para 
não deixar o qua- 
dradinho sair fora 
dos limites. 


XY : 
95 IF N=-i THEN UNPLOT X,Y 
196 GOTO 30 






o N muda. de si- 
nal + ou —, quan-. 
do apertamos a 
tecla QD. 





Rode o programa e usa o JOYSTICK ou as teclas abaixo. 


DOD E 
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DIAGRAMAS DE BLOCOS . 


Diagramas de blocos ou 
fluxograma é uma ma- 
neira de representarmos 
a sequência de operações 
a se efetuar em um pro- 
grama. 
















Que pena 
estou triste. 





eu também 
gosto de você! 


42 PRINT “UOCE GOSTA DE HIM 2. d 
cas SAND ss s5» ; 
BA IF INKEY5="5" THEN GOTO SÊ 
30 IF INKEYg=]N” THEN GUTO 70 
42 GOTO 2R 
52. PRINT "MUITO DBRIGADO" 
Q PRINT “EU TAMBEM GOSTO DE U 


STOP 
O PRINT “QUE PENA, ESTOU TRIS 























STOP 














HUM! ACHO 
BONITO E 
INTELIGENTE! 


















Você me 
acha bonito 






F=feio pN feio,ou? /A B= bonito 
Que pena 
estou triste. | Obrigado 

D =dúvida 







Diga que 
sou bonito 





É 22 PRINT "E 
E D=BEMRETS,, 
; E5 PRINT o ºU 
FEIO OU 2", 
30 IF INKEY5G="B" THEN PRINT 
à BRISADO" 
: 42 IF INKEYgG=0F" THEN PRINT 


E UE PENA, ESTOU TRISTE." 

: 50 IE INKEYS=0D" THEN PRINT 
E IGA QUE SOU BONITO." 

É 6) GaTO Fo 





Observe que a vírgula pode ser usada para pularmos espaços. 
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Q3A! Aou! 
ESTÃO OS 
SÍMBOLOS USADOS 
EM FLUXOGRAMAS 


Co) INÍCIO E FIM 


(PRINT) 


Imprime na TV 
“ (mostra no vídeo) 


Entrada manual (INPUT) 


Tomar decisão (INKEYS, IF...) 


(FOR... TO) 


Loop 
(NEXT) 
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Operações o o (LET, RAND...) 











O PLUXOGRAMA 
FACILITA A. 
COMPREENSÃO 














CouaL O SEU NOME PM 











LF o) 


EwWIOIDE» 





Ha: 


se 
NE) 
ut 


PIFIRENTE 


DX 
+ 
De a] 
a] 
nm 
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100 








Início 


Qual a 
primeira 
nota? 


SERA QUE Fui 
APROVADO? 














— -— e e — uam ques 


» Entradas 
com as 
notas 






Dal PiniRIDES 
DUCHA edita 






Quai a 
“terceira 
nota? 


— e. e O e ve um me ema 









LETS: 

Ny N2*N3 NOTAS SÃO: 
12 NOTA=60 
2% NOTA= 20 


3º NOTA:3,0 























REPETIR, REPETIR, 
REPETIR A MESMA 
COISA SE PODEMOS 


USAR 


E [RETUEN] ? 














IBTATM da 
bet ad H De) tt 


futesfs qua qa qo 





UPE QU Ea Eae] MO E Ló to 






QUE LEGAL! 
USANDO 


E (RETURN) 19) 
PROGRAMA | 


PIMINDIU | 
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APLICAÇÃO DE |GOSUB 
RETURN: 





























+ ES dm Pp ata ada eita 

] Du PRINT “TECLA R=SUBROTINAS 
APERTO ] 25 IF INKEY5G=0RO THEN GOSUS SO 
E VOU PARA is PRINT AT 12,5; “ESTOU «FORA: 

E DA SUBROTINA” 
A SUBROTINA À 27 PRINT OT 10,11; "2FORAS" 

SO GUTO 2s 

à 5a FOR N=9 TO As 

à 5Q FRINT AT ta,11;"peNTROr 

E 70 PRINT AT 10,11; "SBB 

d 8 NEXT N 

a RETURN 





PRINT TECLA H=5UB-ROTINAO 
IF IHK Hº THEN GOSUZ 30 
GOTU LU 
PRINT CR: 
RETURN 





USAS 






RETORNA 
sempre NA 
LINHA SEGUINTE 


A jaosuB] 









início 


Goto 10 Return 
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REM 


STEP 





4 REM + DISCO UDADOR + 
5 LET C-a 
- 12 PRINT-AT 3,0; "-—-<Bb-- 


Bu PRINT AT 3,C;" ot. 
3a GDTO 18 












QUE LEGAL! 
AGORA VAMOS FAZÊ-LO 
JOGAR BOMBINHAS ? 


Observe que vamos usar GOSUB e 


[= Q RETURN. 
Adicione as linhas abaixo: 
25 IF INKEY$="B" THEN GOSUB 108 
180 FOR L=á TO 15 STEP & 
110 PRINT AT L,C+3, 0.0 
115 PRINT AT L,C+4+3,0 € 
120 NEXT L 
RUN a 
LINE 
INT . 


E a 
bombas. | 
OBA! VAMOS COLOCAR 
MAIS ESTAS LINHAS 
E VER O QUE 
ACONTECE ? 






125 PRINT AT 3,0," 
130 LET C=C+2 
35 IF C=20 THEN LET C=Q 








ANIMADOS 


Ca! 











Agora, adicione as linhas: 








nua 
ul 


- 


e. 








1 
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RR | 


SLOW FAST Podemos ver o 
DeElIF E 5 5LOU jmicro traba-, 


lhando. 


O micro tra- 
balha com a 
5 FAST 4 tela desligada, 
porém mais ra- 
pidamente. 





NEXT Y 
NEXT X 










Apanhe um relógio e marque a diferença trabalhando primei- 
ramente em SLOW e depois em FAST. 
OBS.: Caso a tela da sua TV esteja pulando, é porque o micro, 
está em FAST. Digite SLOW ou simplesmente desligue 
e ligue o micro. 





2 FO TO 120 
15 PRINTS N=tiN: 

B9 IF N=20 THEN FAST 
2 S THEN SLOU 


OBS.: O micro inicia sempre em SLOW quando o ligamos. 


105 


Su LET C=1ê 
cairá RES, C=0+CINREYS=03"0) = (INKEY 
Ea = 
110 PRINTATIR,CO;O a 
iza GOTO lua 





NÃO ENTENDI 
NADA! 


Faça o programa rodar e aperte 
[5 
as teclas [5 E) oufs à] 


Agora veja abaixo como funciona 
a linha 100. 


Quando aperto bel ET C=0-1 
Quando aperto 8=mjei ET C=0+1 





PRINT AT 120,0; 


Mt 


1 
[20 DR EA E) 


Apps 7 


+ 
* 


& 
E 
E 
f 
& 
E 
Ka 


Ene | 


poa e» TT 


ha 
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Para melhor compreensão do programa anterior adicione a linha 
abaixo e faça rodar novamente. Aperte as teclas e 


3145 PRINT AT 12,00 ee * E 











AAH! AGORA 
SIM EU 
ENTENDI! 





Observe que a todo momento nós 
temos o valor da coluna €. 


Ótimo, vamos então personalizãr nosso programa anterior. 
Substitua as linhas 115 e 116 pelas linhas abaixo: 


À 





J 


Vamos lá, faça-o rodar e veja que caminhão bonitinho você fez. 


OK pessoal, vamos agora construir a estrada para O caminhão... 
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VEJA QUE LEGAL 
OS LIMITES DA TELA! 








Vamos mudar o nosso programa, de modo que o caminhão, ao 
passar no buraco, caia dentro dele? Adicione as linhas abaixo. 


5 ULS 

io LET 8=13 

118 IF C=A THEN GOTO 280 
208 PRINT AT 12,C,' E 
219 PRINT AT 13,05+3;' E 
E20 PRINT AT 14,0+3; "Cm 
230 PAUSE 100 

240 GUOTD 5 
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QuE BARATO! 4 
MAS SE TIVESSEMOS 
UMA PONTE PARA O 

CAMINHÃO ATRAVESSAR 
O BURACO ? 





Faça então uma ponte adicionando as linhas abaixo: 


105 IF INKEV5="P" THEN PRINTO AT 
14,22; E 


119 IF INKEvgG="P" THEN LET F=24 


Faça-o rodar e lembre-se: 


é 
5 De o caminhão afastar-se da ponte.. 
> qu jo ê 
38 ma »-faz O caminhão ir para frente. 
ER ai aparecer a ponte. 
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12 LET C=15 (+ 1x 

EQ LET C=C+ (INKEVS= “SI - LINKEY 
S="5"9)(-1)% 

se LET C=C+ (Deo) - (oa 


au PRINT. RT L0,0 o race » 
s2 GOTO 2a j 


Teste usando as teclas 


POR QUE DIMINUI SO | 
ATE [io] E AUMENTA ArERO ? 






Quem limita este intervalo é a linha 30. 
Vamos alterá-la: 


Teste novamente e veja: O limite é Be 18. 










EU QUERO UM LIMITE. DE 
le Bo) como Devo Fer? 





So LET C=C+il<O-(c>0) 


an 
RUA - Apague O programa, e vamos fazer a linha variar 


de O até 20 com um outro programa. Tente com- 
pletar: 


1S LET L=16 í 
CS LET L=L+CINKEvS="DO -CINKES 
s="0 


- G3 LET L=L+(LDi-t5 05 
45 PRINT aT = to; es 
50 PRINT AT L,22;L 
S5 PRINT AT L51,182;" te 
6a GATO 25 


no 


£ = OW) à GZ = OuIXPu 9-*«—BUn]09 ep saytu!| so 919)j8 sojduiaxa 0NO 


G = OUjumu 3 B| = OWIXPU | seyu!| op amu] "OjduloXI 10d 


*sojtuuI] SO ADI] IPOU! 9JU0] 'OgsUBaJdu1OD E JB3|IoPj BJLd 














DO TZ DEUS SST 
a parir tania dna A img 








Cu 


Se» «ip 
dd 





ps OLca q9 


TT. 


BM 





bi H ANINHA Or 

: 3º 
BR: o -aBos+a=a ne 
Ee. 





MIANTO — Cu 9u=EATANT) 


ATUAM) - fu B=BASANIIÃHO 5 
or LIT-ST 


mtu 


SILIHIM 











4 


To EB es cceshunTIDIC!! DE T 


u 


td + ec JHE 








DS pas 








SEUS RAS Gb TALE AESA RO RES SERRA 


LHE! 





INHTHT O 
BUuI |" 
eun/09 «5 


qm 


7 
Aplicações de INKEYS$ 


E PRINT OUCCHAQUINA DE ESCREVER 


Vu 





Br 
SI 
10 E 
15 E 


ee 


INHEvY$="" THEN INPUT À 















DEVEMOS TOMAR 
CUIDADO PARA NÃO, 
CONFUNDIR 


[E conlar 





não estou aper- 
tando. 


ee THEN GOTO 13 
ve THEN GUTO 20 













| 
fara pito 

7 : 
» . 


estou apertando 
qualquer tecla. 


soltei. 


Este programa também funciona como uma máquina de es- 
crever, porém ao apertar ele pára devido ao BREAK. 
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Ss FOR I= 
15 PRINT 
28 NEXT 











Adicione ao programa as linhas abaixo. : 
+ 
£S PRINT AT 13,8/"DE UM NUNIRO, é 
EU DAREI O CHRS"E q 
= IF INKEvS="" THEN INPUT FB = 
55 PRINT AT EB.3; "CARGA C4ÃIC= oO 
CHARS A" "E 
BO COTO com 
Por exemplo: : 
' Rode o programa usando núrrieros Sim UNE “oa É 


de O até 255. 128 | 










E REM + CODIGOS Ê 
| É COP i=ô TO 255 QUE CAPACIDADE! 
ES ERINTO , 285 cóbigos. f 
55 F , 
ES 


pedi See 


io MEL o adi 


RIHNT CHR& & 


Podemos também fazer: FRIHNT CHES 152 ENE 
CIT CHRS OCiz NEW 


LINE 


OBS.: Veja na pág. 156 a tabela de códigos. 


3 


3 


cobIiso 
[o = RR O RR SR E 
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ne 
> 


Fa 
CARACTERE: 


Ka 


+ 


a 
. 
255 COPY 


VEJA FARG. 


E 


io PR 





15 FOR I=4 TO. 2º 
25 PRINT CHRS 1; 


355 NEXT 1 


175 


Faça -os exemplos: 
PRINT CODE "5" [RO 
PRIMT CODE ve 
PRINT CODE CRS 


Faça agora: 


PRINT CHAS 1 
PRINT CHR$ 7 


PRINT CHRE 50 


Procure assimilar: 


CÓDIGO——p 7 
'CARACTERE-po *) 


Brinque com os programinhas: 


4 









as PRINT “MAGUINA DE ESCREVE 
Com CRAPHICS 


INT 
PRINT 


IF INKEY$&<"" THEN GOTO 28 
IF INKEY5="" THEN GOTO 25 


PRINT CHR$ (CODE INKEY5+125) 


GOTO 28 





12. FOR N=0 TO 285 - 
22 aCroLL Ê 
22 FRINT “CODE “NM; ="3 
CHRS N 

4a NEXT N 





= o 
| STRING [STARS VAL =| VALOR | a 


e 
e qu 





AMAR! LEMBRAM-SE? 
COM STRING NÃO 
PODEMOS FAZER 

( CALCULOS | 







Usando STR$ nós fazemos qualquer número 
tornar-se uma STRING. 


Faça: er Nos 


LET N$=STR& N 


Pronto: o micro tem arquivado em sua me- 
mória que: 





| N$ = “5” é uma string 


N = 5 é um número 






MAS COMO EU SE) 
QUE R$ É UMA STRING? 





Muito simples: tente fazer cálculos com 
N$ assim: 


PRINT N552 [tejo 
PRINT N$+5 [8]= 


O micro não aceitou, não é? N 
Faça agora: 


PRINT Nº2 [mj=. 
PRINT N45 [8 ]= 


Apesar de N$=5 e N=5, para o micro eles são totalmente 
diferentes. 


us 





EM va) cu 


DESCONFIO QUE 
SEJA O OPOSTO 


DE 
L3 faz 


Você acertou, Tekinho, 
exatamente o oposto, ou seja: 


VAL transforma STRINGs numéricas em números. 
- Faça: 











LET B$="a" 


VAMOS FAZER CÁLCULOS 


USANDO B$,APESAR DE 
SER UMA STRING. 













PRINT =sUAL Es [15] E da 
FRINT I1B+UAL Es pml=--- 


Observe a diferença: 
PRINT As [18]= 
LET Ag="2+47 e | E 
PRINT UAL As [Ny 


af Hã 


LET M5="5-2" [E 
PRINT VAL Ha [57] 


PRINT VAL M$+UAL Ag= 


= VAL AsS——S 


Ee! 

LET Eg= aATR& Es l 
1 
| à 
i 
| 
I 






em 


Bã="2+0 


Mã="5-2" 







STRINGS 


NUMEROS 
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(Mp ta ps 
CURE ER 


RUM E 


Rode o programa e faça continhas assim: 


PRINT “E 
NPUT As 
INT AS; 
PRINT 
BOTO 25 


RINQUE COM 
“IVAL Bã 


"s+zmelim)= Efe 
solte) o 
RERE Rd E] ES 
ef). O 
“Eve [E Reis 


SOR significa raiz quadrada, 


Exemplo: 
Es2=d ---—+ SR 
3$2=92  ---.> sor 
42:4=16 ----> sOR 
S45=25 ----; SOR 
ER+6=35 ----;- 5aR 
fE&7=43 ----; SaR 


O p 
WU 


la 


ta 
q 


[) 
LE 


fa dy 


ASSIMILAR 


4 


[=] 
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REM 


STEP 


PODEMOS USAR 


PARA TILULOS E 
EXPLICAÇÕES! 









sPLICACAD DE UaL + 
ENTRE COM UMA Eguacad 

USANDO Xawl 

Bu INPUT A& 

PRINT “DE UM UALOR PARA =º 

INPUT x 

FRINT "DE UM VALOR PARA vº 

INPUT w 

PRINT CPARRA K=0GKiC W=0,r. 

PRINT Ab; C=0;UAL AS 

PRINT 

Goro se 





ES CI) ESA EE CO 3 ES 1) 


MC e CH fu td 


RUM 


Rode o programa e forneça equações. 












QUE LEGAL] 
VAMOS BRINCAR 

COM OUTRAS 
EQUAÇÕES? 


Vamos, mas primeiro coloque esta 

linha no programa: «45 IF X=8 THEN GOTO 16 
Aqui estão algumas equações para 

brincarmos. | 


X-v+10 —x= 





Xp x 


Varal —x=? 


Lembre-se: X=G o programa recomeça. 


18 


+ Preencha os exercícios abaixo usando 
K o micro: é 


LEN 


PRINT LEN “papaIr(iS) 
PRINT LEN “Rua"[ES) 


PRINT LEN ca“(iS) 


PRINT LEN “Ai "EE 


Veja o que acontece: 


Para 

BR | = LETRAS 
RU Aa º 
12 s | 3 LETROS 





4 


PRINT LEN ” «PE: DES 
PRINT LEN " arimyl=- 
PRINT LEN "EU E vocêE"jMIS 
PRINT LEN “i1Bzsso7a" | 


PRINT LEN caBzo" [= : 


PRINT LEN “uns BS = 


Observe que os espaços em branco também são contados. 


9 











Aqui vai um. programinha para brincarmos 


INPUT Ag 
PRINT As,i EH AS 
GOTO 2o 


Caiana 
[us E] 


Vamos lá, faça-o rodar assim: RUN B 


«sauDem TEN 


“HICROB" vs 


Por exemplo: 
“a: BB” 1. pio E ni ão 
“essa vê eres 


[LENInos fornece o comprimento da STRING. (palavra) 










AQUI VAI UM 
PROGRAMINHA PARA 
ENTENDERMOS E 
MODIFICA-LO! 


escrever seu nome 
[ee eos À 


S LET Ná=º ” 
180 PRINT “NOME DE UM AMIGUINHO 


INPUT Ag 
30 IF LEN N&>LEN Ag THEN GOTO 


35 PRINT Ng; "E? MENOR QUE “;AgS 
42 STOP : : 
50 PRINT N$; "EE : 
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PRINT 


PRINT 


início TO fim 


“COMPUTADOR ( TO 51H 


“COMPUTADOR C( TO BB 


PRINT “COMPUTADOR ( TO JH 


PRINT “COMPUTADOR" ( TO 1338 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


Veja o que acontece: 


MPUTADO 


seu nome 


(7 me 
"“t TO 2388 


“E TO 4 
“(TO nEB 
“(TO mB 
“(2 TO SH 
"(3 TO 49H 
“ts TO 9H 


Do 


Hom 


se 


pu 
ac 
“JD 


q 
JD 
Cura 
ago) 


ma tuto ama ceu, 
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— iaidtas mta 


PRINT “COMPUTADOR (E TO 5) = 
PRINT “COMPUTADOR (B TO 101 vo = 
PRINT “COMPUTADOR (S TO 7) “= 


Veja o que acontece 


início 


É iu 
o 

u 

4 

(9 

mu 

MIT 


td 
ea, 
N 


F 4 
cut 


to gm 

Ji 
tv! 

MIA 


|-4 
a 
Ls 


[ad o! 


ess To 10/87 R DOR 
“Tea 


A] 
=| 
Q 
a 
A 
D 
Lau 
a e) 


EX.: (2 TO) = 2 até o fim. 


im LET Ag=" 1234557850" 

2a PRINT “ESCREVA UMA PoLAvURAS 

sa INPUT B& , 

40 PRINT “UAMOS CORTA-LA USAND 
o TO” 
ear o UNE “quaL O INICIO DO COR 
- 60 INPUT I 

72 PRINT “aiaL O FIM DO CORTE O 


per 
8 INPUT F 
85 CL5 
S9 PRINT AS,AGtI TO P) 

182 PRINT B&,BHti TO Pj5 

114 PAUSE 2au : 


120 PRINT à 
139 GOTO 20 


[E] 
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VAMOS USAR 
CQUE 
APRENDEMOS: 








PRINT “BuaL 


5 FOR ER TON 
PRINT As( TO Al 
TR 


Nunca pule para O programa seguinte, sem entender direitinho ? 
o anterior. 


EM) 
pa 


a Ea) fd os PT Es 


Em 
Es ES A EA ES E 





teme 
afim 


T "ESCREVA UH NONE quaL 


“LHE DAREI À IHICIALS 


Ji 


3 
TAH 


tT 


= di 


JJ 


“A INICIAL 


Ji 


TT 





Teste várias vezes e depois modifique a linha Li « « LL. 








SERA QUE SABEMOS 
TUDO DIREITINHO ? 









Vamos lá pessoal, aqui vão alguns exer- 
cícios. Completar. 






PRINT LEN. COMPUTADOR... 

PRINT LEN.. SAUDE. [18] =s 

RINT “ALEPH"L.TO 4) =LEP 
PRINT “COMPUTADOR LI. TO s3 [18] =HPU 
PRINT "COMPUTADOR" (TO [NM] sta 
PRINT "saude" coalB) -u 

“PRINT “EBUDE“L TOS (E) = A 

PRINT “SAUDE TO.d =SAUD 
PRINT “SQUDE”L.TO  [i8E] =uDE 


Os exercícios abaixo estão errados. 
Onde estã o erro? 


RINT LEM "HORA" (RE) -& 


E 
FRINT LEN * RUA “jM| =3 


PRINT "RUA" (2) =R 


Ed] 





PRINT “ HORA" IS TO) =HORA 








Este programinha está incompleto. Tente completá-lo. 


10 PRINT "ESCREVA UMA PALAU 
E EU DIREI” o 
EQ PRINT “OD COMPRIMENTO DEL 
42 INPUT Pã 
Se PRINT 
BO PRINT “O COMPRIMENTO = 
7Q GOTO Se 
e NEW 
RUN RE 
BD LET N5="ALEPH” 
30 FOR I=1 TOS 
Sô PRINT AT I,I:NS(I) 
Sê NEXT 1 





Teste o programinha; procure entender como funciona a linha 40. 


e. 


5Q PRINT AT I,30-I.N5UZ) 


Rodar com RUN 


Ótimo. Agora adicione as linhas 60 e 76. 


bo & 
78 


RINT AT 


PRINT AT 


Teste e observe quantas coisas podemos criar com o micra. 


Vamos lá, crie mais uma linha bem bonita e mostre ao professor. 


125 





É Faça rodar e fique 
observando: 


maior menor 


menor (22+1)-3=29 
4 


22 LET N=5+INT (RNDE2B) 
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Podemos, no programa anterior modificar a linha 20. 


n 


menor i 
E) 
| 

29 LET N=5+4INT (RNDES 


£O LET N=i4+INT (RND=3) 
£, 
Pá 


N=X+INT (RNDEH) 


RESUMO 


X = menor 
K = (maior + 1) - menor 
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OBA!! EXERCÍCIOS 
PARA NOS! 






Fazer e completar aqui. 





n 


PRINT INTO 
FRINT INT 
PRINT INT 


ta 


U 

| 1 
| 
pl 


ota 

oro by dy dy 

GE MS Cais 14 
sm m 


ERREEA 


PRINT INT 12.7 Ea ga 
PRINT INT 12.82 Ei 
PRINT INT E.3 E Lo 
“PRINT INT 10.56 [im j=. 
PRINT INT 4.732 E 


Ela 


PRINT INT END 
PRINT INT = 
FRINT INT , IES T Lo. 


3 
j u 


E! 
£ 







NOTE! QUE O MICRO 
DESPREZA OS NUMEROS 
QUE ESTÃO APSS O PONTO 


Exatamente, INT = inteiro, ou seja, 
só interessa os números inteiros. 





128 





REM 3 TESTE COM INT + 
15 FOR N=3/24 TO 100: 

ZE SCROLL a 
20 PRINT “INT CºiNPtOS 


NEXT N 














LOOPING 


5 INT 









Agora rode o programa. 
Podemos-mudar os valores do Looping. 
Exemplo: 
; is FOR hn=á:2 TO 
5 FOR H=507 


SCROLL 
FRINT AND 
GOTO 3 





RND é uma função que nos fornece números aleatórios entre 
ZERO e UM. 


Números Aleatórios: são números gerados ao acaso. 
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LEMBRANDO QUE: 


Ns (+ INT (BND) + (R)) 
ae 














& PRINT CHENOR=2" 
E INPUT x 
S PRINT CMHATOR=7" 
lo INPUT HM 
ls ULS 
Sa PRINT CdlociodoTrackss 





E Q125155750Em)" 

E dO PRINT AT 10,X;X 
SG PRINT AT 12,HM;M 
Bê LET K=iM+11-% 
65 LET N=X+INT (RHD<E) 
7R FDA L=i TO 18 é 
75 PRINT AT L.N;"DUAT LANG” 
Sa NEXT Le 
85 GUTO 55 






















Z-"VOOr 





EEE 
Brinque à vontade com o programa. 


Por exemplo: MENDR=715 
ES 


HAIOR=725 LINE 






PODEMOS MODIFICAR * 
TANIBSEM O LOOPING E. 





Teste as seguintes modificações: 


78 FOR L=1 TD 18 , 
o FOR L=a TO PO STEP & 
70 FOR L=15 TO 18 

72 FOR L=1 TO 20 S5STEP 5 
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Usando o programa, tente fazer a tela ficar assim: 











JA SABEMOS FAZER CHOVER 
QU JOGAR BOMBAS DE UM AVIÃO 
MAS, COMO FARÍAMOS PARÁ 
ATIRAR EM UM AVIÃO QUE 
BESTA NO ALTO ? 


é difícil. Veja abaixo. 


LINE 


LET N=19+INT (RHDIDa 
FOR I=15 TO G STEP - 
PRINT AT I,MjCIC;AT 
HMEXT I 
soTO S5 





Que tal? Agora você pode alterar os limites à vontade, ou seja: 
COLUNA: 6 até 31 
LINHA: OQ até 21 
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QUE LEGAL! QUANTOS TRUQUES! 


JÃO SEI COMO 
MAS, EU AINDA NÃO SEI | 
ATIRAR NA HORIZONTAL, 










LET N=10+INT (RHD512) 
FOR 1=15 TO d STEP -1 
PRINT AT N,I;"IvSAT N,Istir 


MEXT TI 
Goto 10 





Movimento na 
horizontal. 


Altere agora a linha 15 para: 15 FOR I=la TO Es 
e faça rodar. 





Observando sempre os limites da tela, vamos alterar o programa 
acima. 


coluna —— > 31 
4 


' ese aa a 


15 FOR I=15 TD O STEP -1 





22 PLOT N.I 
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Adicione ao programa as linhas: 


21i PRINT AT TaMpCICLAT TM; 
2i PLOT T.N. 


Ótimo, faça rodar e aprecie os desenhos. 





312 FOR U=d To ER 

120 PRINT AT BaM;CEtsarT Dra” 
130 HEXT OU 
1i4à FOR F=2 TO 19 

154 sc AT FoMp AT Falls! 
:A Mar 

IE F=19 THEN GOTD 250 

HEXT F 

Goto apa 

FOR G=0 TO 5 

PRINT AT FM; EMC AT Fam" 
SAT. FMs! 

HEXT E 

Goro joa 





O programa acima simula um objeto estranho voador, que apa- 


rece no 


ar e desaparece deixando bombas, que caem e explodem 


no chão. 


= 


Use sua imaginação e com- 
plemente-o. Uma dica: use 
INKEY 8. 


« 
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NÓS JA” 


CONHECEMOS. 


MAS, ? 


O QUE SERA? 


RND 


Faça a seguinte experiência. 
Aperte NEW e depois.[ 16% | 


OBS.: Desligar e ligar o micro é igual a- 


Agora faca: | 


PEINT ANDB. marqueon9. 
LINE 


IN 

PRINT RHDR marqueonQ . . ..— 
JE 

PRINT END EINE marqueon?.. ... 





“Ótimo, agora volte e faça tudo novamente a partir de NEW 










Vamos lá; faça Oo programa, mas antes 


LINE 






MAS, QUAL 
A DESVANTAGEM 
DOS NUMEROS 
SE REPETIREM 
SEMPRE? 




















E» CO Up = 
LS DIE REDE] 
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Faça rodar e marque os números para jogar na 


e] 0] H 0] 0] 


Ótimos, agora você está de saída para ir jogar na LOTO (desligue 
o micro). 






Mas eis que chega o seu amigo que também vai jogar na LOTO. 


Você, naturalmente, liga o micro e faz um jogo para ele. Faça 


e marque. O primeiro jogo. E E = n = 


QUE PENA! 
os JOGOS 
SÃO IGUAIS! 











Para evitar que o micro reinicie sempre com 
os mesmo números, usamos RAND 


Tm 


Adicione ao programa a linha 5: 


e agora você pode testar quantas vezes quiser, que somente por 
acaso, dois números se repetirão. 


RAND | significa Números Randômicos, ou seja: 


Aqueles que são gerados aleatoriamente com uma 
certa ordem. 
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UNPLOT 


- OR 
26) jwã 


cos 


Para viajar, devemos sempre pedir autorização para Papai e Mamãe.. 


10 PRINT “PAPAI, POSSO UIAUAS 
aceso (SAND 
“BA INPUT PS 
30 PRINT “MAMAE. POSS0 UIRJAS 
Ea EE SMI 
“40 INPUT H5 


| SejPapai, 1 falar Isimiten Mam: 


Sia oo Re E e Aro 
sore ge"s NERDIMELOS» ThE PRI 
HT “OTIMO, UU UTRGARO 


Mas, se papai falar não ou mamãe falar não, então eu não vou. 


1 G=0NU OR ME=CNO THEN FRIN 
"EU NAO toy” 






MAS SE O PAPAI DISSER SIM 
E A MAMÃE DISSER NÃO ? 





Brinque com o programa acima e depois 
adicione mais uma linha como o Tekinho 
sugeriu. 





va IF ccavscsessasocnsorccas rose 
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10 PRINT ONE? 
20 INPUT N 


ES PRINT MH 

30 PRINT UM=? 
do INPUT H 

45 FRINT M 

RUN 


Faça rodar algumas vezes para ver como funciona o programa 
acima. 
Ótimo. Agora adicione a linha 66 assim: 


9 ANE H=10 THEN PRINT E 
Di | 





Teste algumas vezes 
Agora troque alinha 66 por: 


ra 
ta 
a 
Ut 
AO ud 
[o] 
€— 
Ti 


EO IF MN H=10 THEN FR “p 
ELO MENOS UM DELES E* IcuAL A a 


RUN Í . 
-— E 
teste usando EINE a 


SE N=D E M: 1207 







Que tal fazer como o Tekinho 
sugeriu? 


BG IF N=0 AND n=100 THEN +... 
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138 


NE nmm 


petit DA ant 







npcan 
Mete tado to uia 





-« NIMITT 


118 PRINT ET 17,5: "HERE! 
120 LET L=L+(INKEVS="60) -CINKEY 


Era 


4 ta 
ErEA rd 


Pia feio 
q 


4 
se, 
m 


H 


nn 
H 
E 


io Ted TO qd Ted AD e DM ui TG dede 





in 
H 
noventa 
= 
HH 
m = 
= 


[0 
E) 


as: 
dm 


a] 





SR pet ti poê oi pa o 


Em. o 


S="0" AND 
11; E+E 
&="0" AND 


ARNO 


t 
u 

| al 
] 


f 


m- im meme 





1) 
[had 
BI] 


4 
tata ta 


Re 







ng! 
os E AE SE E RA 
“ 
ua 
+ 
I 
m 





“nAndMuiia 
x 
u 
to 
“ 


a açá 


= 
m- 


+ 
Du] 
po 
fia 
ca 


Rode o programa usando RUN ER 


Exemplo: E=7 13 


executa a 
operação. 











Coloque o programa 
abaixo no micro e 
teste. 







10 PEIHT “ALEFH" 
15 PRINT A 


RUN 


A televisão ficou 


assim: si 





JA” + 
CONHECEMOS 
ESTES DOIS 
NÚMEROS 








Apague a linha 15 assim: 15 


MEW 
do LINE é 


Agora, adicione a linha s0 
assim: 


Ss PRINT q 


RUN 








Nº 2 nA | 
LINHA nº 50. 
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Códigos de Erros À 


0 — Tudo bem, tudo certo. 


1 - Usou [NEXT Isem e a variável definida. 
Exemplo: 4 LET f=1 
o NEXT A 


apesar de definir 


A=1, faltou o FOR. 
2 — Variável não definida. , 
Exemplo: l faltou definir um 


120 PRINT E Malorbas É 


3 — Fora da faixa permitida da variável subscrita. 


Exemplo: 10 LET Ag="M" : 
ã a linha 26 pede para 
imprimir a 2'letra. 


2R PRINT AgiZ) 





4 — Não existe mais espaço na memória. 
Exemplo: = FOR E=ior TO saga STEP aaa 
là FRINT E : 
22 CIM ME) 
Ja HEXT E. 


5 — Encheu a tela. 
Exemplo: Je 

p lê PRINT CHICROBOrS"; 

23 RUN - 


NEW | “lembre-se quelCONT 
Ra limpa a tela e continua. 


3a 
6 — Número calculado muito grande, maior que 10 


7 — Usou RETURN) cem [EOSUE] 


8 — Usou INPUT sem número de linha. 


E : 
emplo: pur A NEW 
LINE | 
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9 — O programa parou num STOP. 
Exemplo: 


5 PRINT "MICROBOYS" 
5 STO! 
7 PRINT E 





A — Está fora dos limites de certas funções. 
Exemplo: 


FRINT SOR (Sião aceita raizes negativas. 


PRINT ASN Zap-não existe seno maior que +1 ou menor que 
-1. 


B — Número inteiro fora de faixa 
Exemplo: 


PLOT ES,18 


PRINT AT 25,8; 0a" 


C — VAL não consegue executar o que foi pedido. 


Exemplo: 1º Saia a nAE na teste os valores: 
2a PRIk e oo 5 
22 GOTO 10 ld 
12.5 
aaa 


+ tm 
a vírgula no micro é sad. para comando. 


TES 
LINE 


15 Ss 
D — Usou BREAK com o programa em sete 


Exemplo: 10 PRINT 1 É 
5 RUN rode e Shea BREAK. 


E — Não usado. 


F — Ao tentar gravar um programa em fita, esquecemos de pôr o nome. 
é um 


Exemplo: 
PO: sque ve 
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FRIHT 
RUM 
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o] 
mM. 
En 


LLIST F 
GB PRINT -s (imj= 
PRINT RES -I1o[i)= 


PRINT ABS -2 [ME]= 00. 





ACHO QUE JA 
ENTENDI. O [ags] 


FAZ O Nº FICAR 
= POSITIVO! 






PRINT lB+nES -18 


PRINT 2sABS -E 





12 FOR N=-12 TO 6 
EB PRINT "AES “;N;” = ";RES N 
32 NEXT N. 





Teste o programa acima e depois altere os valores da linha 10. 


Escreva 
um nº 
negativo 


LetA=ABSN Le 















Pronto! 
N ficou 
positivo = À 
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“Tente desenvolver o programa. 


DIM Vamos ao cinema? 


'SLOW Está passando um filmão. 
ID & | 


QUEM VAI NA 
FRENTE PARA 
RESERVAR LUGARES? 


















Precisamos reservar 7 lugares. 
Ao fazer um: programa no micro, também precisamos reservar espaços, 


ou seja: 


D!Mensionar espaços usando DIM. 


DIMENSIONAR 






Ego sumo não sEgostio 12-EETRAS 


ESPAÇOS NO la DR co 
MICRO? Como) JS = ABRIEL 
3PRISCILA 
LTEKINHO 
AS UIREGINIA 
BMILTON 
da LÊGIN 
3FERDINANDO 





No cinema, nós simplesmente reservamos 8 lugares ou 9 lugares ou 10 
lugares. 


O micro é mais exigente, ele quer o número de pessoas e o número de 
letras assim: 


DIM RE (5. 18 


e 
RE des 
Leimensionar | Strno, 
pese EE sa Sentra 


pessoas” | Mugares — Ji número máximo] 





DIM PSIÊ, 
FDR I=i Tí Du ce 
PRINT “QUEM URI SENTAR Na º 
POLTRONA? 

INPUT PSI 

PRINT “PSi' 
EXT I 
PRINT “FIM” 


Li] 
Eu gy 


EMI pa que ty ports 


E ES Cups 


Vamos supor que aumentou o número de lugares a reservar, para 11 pes- 
soas. Qual seria O novo dimensionamento? 


10 CIM Egilil, 10 
20 FOR I=1 Tá as 


à 


O que acontece se a 112pessoa chamar ANTONIO CARLOS? 


hz 
Ba 


a 
Ea 


-2 DIN Fálil,id) 


Altere o programa: acima para 12 pessoas com nomes de,no máximo.14 
letras: 


là EIM Pailz,Id) 
cu FOR I=il TO as 
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4 LET N=Q 
S DIM P5(10,15) = 
10 PRINT “ESÉREUA O NOME DE SE 
US AMIGOS” É 
22 PRINT “QUE El UDU GUARDANDO 
Max. 8)» 





=a PRINT = 
“9 PRINT “QUANDO TERMINAR ESCR 
eres FIM! 


-E LET B=N+2 

so INPUT Pini 

a IF PgtM, TO B1="FIMC THEN G 
dTO 180 

7” GOTO 45 

140 FOR N=i To 20 

125 PRINT 

110 PRINT P5inN? 

lzê HEXT N 


Como funciona a linha 60? 


Observe que DIM P$(18,12) permite que arquivemos 19 nomes com 
no máximo 12 espaços. 
Assim: 


Máximo 18 nomes. 





Senso ga wn- 


Fazer um programa que inicia perguntando: ' 
“QUANTOS NOMES VOCÊ QUER GUARDAR?” 

“QUAL O TAMANHO MÁXIMO DOS NOMES?” 

Dimensionar para as condições acima. 

Boa Sorte. 
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COMO SERA 
PARA NÚMEROS ? 








O programa abaixo dimensiona lugares para 4 notas 
que você tenha tirado na escola. 


lê DIM N(4) 
ER FOR I=l TD 4 
S2 PRINT “QUAL A “;T;" NOTA? 


2 

«a INPUT Ni) 

&o PRINT NI) 

5" NEXT TI. 

58 LET SOMB=NLIIAN(S)ANÍBIANIA 


78 LET MEDIR=50MA/4 - 
a PRINT “MEDIA="; MEDIA 




















LINE 
Exemplo: 
Tnota | 
Sei o DIM Nid> 
3nota 
4'nota 
7.0 
9,5 9.0 
6.5 4.0 
G: 20 notas 8.0 
6.0 8 notas so 
0 | Reis 
Ze DIM N(8) DIM N(26) ee 
7.5 7. 
4.5 2,5 
8.5 6.5 
9.0 CHEESE | ; 
PEERBPBRPER 
armário com 9 divisões. 


DIM At9) 
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EU AINDA NÃO 
ENTENDI ! POR QUE 


vsar [om]? 










imagine o micro como uma série de caixinhas vazias assim: 


+ 
ec 


E, quando você for fazendo um programa qualquer, 
este programa vai enchendo as caixinhas. 


18 LET A=3 

29 PRINT “N=7" 

sa INPUT N rapa 
42 PRINT N ; 


— — . — 


BB srres 





Portanto, reservando lugar,fica assim: 


& DIM Pt12)-- 
48 LET A=3 
. BO PRINT "N=2" 
SO sans od 





ou assim: 


..—— 


5 DIM P(LBI--— 5 4 
a DIM M(BB)--— + 1 
10 DIM Bstlam)---—+ 
15 LET ASS - 
20 PRINT “N=7" 


a nssse 
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COMO FAZER UM 
PROGRAMA PARA 
ARQUIVAR MINHA 
COLEÇÃO DE 

FIGURINHAS ? 








OBS.: 4 linhas 
5 colunas 


= REM COLECAO DE FIGURIHA, ES 
il” EIM Piá, E 

. 15 PRINT “QUANTAS FIGURINHAS T 
EM HA CATXA 


zo FOR L=12 TO 4 

50 FOR C=1 TO 5 

oo PRINT "LINHA=";L; "o COLUHA=" 
si, 

EO INPUT F(L,C) 

70 PRINT “iceros “5 F(L,O) 

50 HEXT Co. À 

50 NEXT L RUN 


Depois que arquivar todos, 
retire a linha 60 
e faça GOTO 26, 
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COLUNAS 










1. 2:34 

SEN ENENA, VENINZNANN 4%, 
PNINZININDN VONININM 4 
QNTINCINE V2NENN ANN? 
















caixa nº 2 





caixa nº 2 


NENESNZNIA 
NEN TIN SN ei 
Nas SN SNS 











ARQUIVAR 
3 Caixas? 


CAIXAS  N=3 E VOO 
COLUNAS C=4 
10 DIM A(3,E,4) 
Ea FOR H=2 TÊ Ss 
So FOR L=1 TOO 
41% FOR C=1 TO 4 
45 3CROL 
5a PRINT “CAIXA “in; LINHA “; 
L;" COLUNA “;C; 
ER INPUT AIN, a Eai 
72 PRINT” ACM,L,C) 
BB MEXT C 
5a NEXT L 
180 HEXT NH 
1ig PRINT AT 9.0; “EFIM APAGUE à 
LINHA GD E 1128" 
120 FRINT “TESTAR COM GOTO 20 E 
AFOS RUN” 


a 
a 
E 
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NOT 


Faça o programa e observe a 
linha 48 





120 PRINT “CINPRIMIREI 
NUNZRO QuE” 
28 FRINT "SEZUA HAIOR 
0 IMPUT MN a 
--—-22 TP NOT M:=ld THEN 
=p GOTO am : 


| 
! 
) 





Podemos entendê-la assim: 


SE N<= 10 NÃO IMPRIMO 


IF 19 PROGRAMA = OK THEN GOTO 2º PROGRAMA 
SE JÁ ENTENDEU O 19 PROGRAMA,ENTÃO VAMOS PARA O 29 


[es] 


(A) 
hd) 


nt E ta apa 


ER! 





LETRA 





Assim: 


r——--25 IF NOT agti 


J="5" WHEN PRINT 25 





t 
Tente completar 
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APLICAÇÕES DE NOT 










N$=PAULO---———- >2VERDADE 
N$=LUIS--—————- *UERDADE 
M$=FIM--——=———— ERES 
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Grego me 





SIGNAL ? 







FRINT SEN 15 (H.LA4) = coesa 
PRINT 22H 10 (HAL.) = posse 
PRINT SEN & (H.L.) = rca 
PRINT =6N 2 (Hs) = sesva 
FRINT SeH é (H.L,) = Grcrs 
PRIHT SEN -3 (H.L.) = ccsss 
PRINT EEN -5 HELL.) = cares 
FRINT SGN -ZO (NL) = peca. 







12 FOR N=-5 TO & 
20 FRINT "SEN ;N;OO= 
30 NEXT N 
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Chegou um momento de tristeza. O Tekinho vai se embora. 

Não chore. Ao mesmo tempo que é triste,se faz a esperança, por- 
que o Tekinho sabe. que as crianças que estudaram com ele, durante to- 
do o livro, são crianças que foram preparadas para o futuro que se faz 
presente. 

Temos certeza, que toda vez que essas crianças estiverem em con- 
tato com um computador se lembrarão do Tekinho. 

Sabemos que um dia o Tekinho irá voltar. : 

Esperemos que nesse dia, o mundo esteja repleto de paz e harmo- 
nia entre os povos, tal qual como na era messiânica. 
Adeus Tekinho, que com a ajuda de D-us,seu regresso seja em 
breve. 
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Ouça na Rádio USP FM 93.7 MHz 
oO programa CLIP INFORMATICA, onde 
são transmitidos programas ' para o 
TK 685 (software radiofônico). 


Hexadecimal 





Hexatecinal 





Pasfv/ a 18 | 20 





+ 





UISIBISINIS 
alzjnjul=|2e|2|22]2)20]3 





32 | 3 TEIEE: 3 |30 [40 | 1 | 42 [43] 44 | 45] 46] 47 
alsiefrlefofapefepopefefofafi fo] 
EESC RESETE ERES 











E e DE ur | 


RIBTE E 


: EE 
ESTE 163 | 184 | 185 | 166 | 187 SE 
Eee EIH e gEciiDii=skcr 


[o [io [em [em [or [or as [ o [a [oo 1 oo | 
eai fee a [moles [5= [5 [sm[ 3 
= Lefetelel= feel jo 
ca [urso sr | mos | sw ns [ve [a om | om | ra | rr | ooro [esa ne [15 | 
[sa [26 [us | 2m | 26 [6 [22 2 | 2 | ma [2 | 

[= [o [h=| esa [rem no [om [eo 1 [ as fonojcomprosem | 





























ã 





Este livro foi impresso na: 
Gráfica Palas Athena 
Associação “Palas Athena” do Brasil 
Rua Dona Ana Nery, 846 
Fone: 279-6288 — CEP 01522 
Cambuci — São Paulo 
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Existem determinadas matérias de estudo, na escola, que são ferramen- 
tas e pré-requisitos para o aprendizado de outras. Ninguém pensaria, por 
exemplo, em ensinar Física para alunos que não tivessem algum conheci- 
mento prévio de Matemática. 

A linguagem BASIC está se tornando, a cada ano que passa, um pré-requi- 
sito para o estudo de outras matérias. Lecionando para uma classe que co- 
nhece o BASIC, o mestre tem uma liberdade de criação muito maior daquela 
que pode se permitir um professor preso ao uso de pacotes fechados (o tão 
polêmico “software didático”). Pode, desta forma, utilizar os microcompu- 
tadores da escola para gerar curtos programas, elaborados pelos próprios 
alunos, que facilitam, comprovadamente, não tanto o estudo quando a 
COMPREENSÃO da matéria estudada. 

A Editora ALEPH fez duas escolhas ao editar este livro: a primeira relati- 
va ao texto, elaborado por dois jovens e entusiastas professores que o 
testaram e aperfeiçoaram exaustivamente em sua escola de computação 
(MICROBOYS) durante ANOS, para crianças e jovens, na faixa etária de 
8a 13 anos. 

A segunda escolha recaiu sobre o computador: o TK 85 (e seus compa- 
tíveis). Não se trata certamente do computador mais sofisticado ou mais 
dotado de recursos mas é o que exige menor investimento na implanta- 
ção e é certamente, um dos mais didáticos (metade do manual de instru- 
ções está no teclado!). 

Este volume não contém, portanto, mais um “Basic para crianças”. Tra- 
ta-se de uma obra pensada, elaborada com sensibilidade e competência 
para introduzir muitos jovens e professores brasileiros no fascinante mun- 
do da computação. 


Nº Editora / 
| Aleph; 








